Question

vb程序调试错误“3709“连接无法用于执行此操作，在此上下文中他可能已经被关闭或无效。数据库已成功连接。

从user表查询指定用户编号的用户信息
代码如下：
Private Sub cmdOk_Click()
Dim Rs As New ADODB.Recordset '用户信息查询记录集
Dim strSql As String '查询字符串
Static Try_times As Integer '尝试登录次数计数。
If txtUser.Text = "" Then
MsgBox "请输入用户名", vbExclamation + vbOKOnly, "操作提示"
txtUser.SetFocus
Exit Sub
End If
Rs.CursorLocation = adUseClient
strSql = "select * from users where userno='" & txtUser.Text & "'"
Rs.Open strSql, Conn, 3, 1---------------------------------------------此行调试出错！！！
If Rs.RecordCount = 0 Then '不存在指定编号的用户信息
MsgBox "用户编号不存在", vbExclamation + vbOKOnly, "操作提示"
txtUser.SetFocus '用户编号输入框获得焦点
Try_times = Try_times + 1 '尝试计数 + 1
If Try_times >= 3 Then '如果尝试计数满3次，结束程序
MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭", _
vbExclamation + vbOKOnly, "操作提示"
' Conn.Close '关闭连接
' Set Conn = Nothing '释放Conn
End '结束整个应用程序
Else '如果尝试计数未满3次，可以重新输入用户编号
Exit Sub
End If
End If

Answer 1

只剩一点枯草
留在树枝上面，
一只忠贞的鸟儿
在林间伤心地呼唤哈哈。
上面是天空，下面是路径，
乌儿的痛苦永远不会停

Answer 2

你的Conn是否已经联接上了数据库？

Answer 3

奇怪，这个问题我不是回答过了，怎么还有？