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

Question

我用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 Functionfrm_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':连接无法用于执行此操作。在此上下文中他可能已经被关闭或无效”，单击“调试”，就把“rs1.Open "select * from tb_client_gzbw where gzbw_txrq='" + Str(Date) + "'", cnn, adOpenKeyset”用黄色标出，这是什么意思，我该怎么办，高手指教一下哈，谢谢了