模块的问题

[dufuguang]

以下代码为何显示
“对象关闭 不允许操作”？
哪位班分析下啊

Call cn '模块中的guocheng

If rs.EOF Then
count = count + 1
MsgBox "用户名不存在,请重新登录！", vbCritical, "=登录失败="
txtUser.Text = ""
txtPassword = ""
txtUser.SetFocus
Else
LoginSucceeded = True
userid = strUserId
UserName = rs("username").Value
Unload Me
frmMain.Show

’模块代码
Public Sub cn()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
strsql = "select * from userInfo where username ='" & strUserName & "'"
strsql = strsql & " AND password='" & strPassword & "'; "
connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\users.mdb;Persist Security Info=False"
conn.Open connstring
rs.Open strsql, conn
End Sub

[dufuguang]

杂没人啊

[Begin_Game]

conn.Open connstring
改为
conn.Open connstring,1,3
试一试，估计是没有
另外看看conn获取的数据库连接状态是否是关闭 检查关闭的原因

[dufuguang]

哎
还是不行！