Question

【求助，急！】错误提示 实时错误'3709':连接无法用于执行此操作。在此上下文中他可能已经被关闭或无效

我用vb做的是客户信息管理，把连接数据库的语句写成了数据库连接模块：
Public Function ConnectToDatabase() As Boolean
On Error GoTo ERR_CONN

With cnn
If .State = adStateOpen Then .Close
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=db_Client;Data Source=db_Client"
.ConnectionTimeout = 10
.Open
End With
ERR_CONN:
ConnectToDatabase = False
MsgBox Err.Description
End Function

frm_main窗体中的语句是：
rs1.Open "select * from tb_client_gzbw where gzbw_txrq='" + Str(Date) + "'", cnn, adOpenKeyset
If rs1.RecordCount > 0 Then
If MsgBox("今日重要工作" & Trim(rs1.Fields("gzbw_zt")) & ",是否查看详细信息？", 4, "提示信息") = vbYes Then
sql = "select * from tb_client_gzbw where gzbw.tsrq='" + Str(Date) + "'"
Load Frm_Fzgj_Gzbw
Frm_Fzgj_Gzbw.Show
End If
End If
rs1.Close
执行后报错，提示“实时错误'3709':连接无法用于执行此操作。在此上下文中他可能已经被关闭或无效”，这是什么意思，我该怎么办，高手指教一下，谢谢了
请告诉我该怎么改

Answer 1

数据库没链接上

看看你的链接字符串是否正确：
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=db_Client;Data Source=db_Client"