rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic然后运行的时候显示对象名test

rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic然后运行的时候显示对象名test无效

Private Sub Form_Load() '此段代码的主要作用是当窗体打开时就连接数据库
Dim Conn As New ADODB.Connection
Dim connectionstring As String
connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATE.mdb;Jet OLEDB:Database Password=lemon822469" '数据库路径
Conn.Open connectionstring
End Sub

Private Sub Command1_Click()
Static n As Integer
If n >= 3 Then
MsgBox "输入密码次数大于3次，不允许继续登陆"
End
End If
Set Conn = New ADODB.Connection
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=DATE.mdb;Jet OLEDB:Database Password=lemon822469"
Dim sql As String
Dim rs_login As New ADODB.Recordset
If Trim(Text1.Text) = "" Then '检测用户名正确与否
MsgBox "用户名不能为空，请重新输入！", vbOKOnly + vbExclamation, "错误"
Text1.SetFocus
Else
sql = "select * from 验证 WHERe 用户名='" & Trim(Text1.Text) & "'"
rs_login.Open sql, Conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "用户名不存在，请重新输入！", vbOKOnly + vbExclamation, "错误"
Text1 = ""
Text1.SetFocus
Else '检测密码正确与否
If Trim(rs_login.Fields(2)) = Trim(Text2) Then
UserName = Trim(Text1.Text)
UserQX = rs_login.Fields(4)
rs_login.Close
Unload Me
Form2warning.Show
Else
n = n + 1
MsgBox "第" & n & "次密码错误，请重新输入！", vbOKOnly + vbExclamation, "错误"
Text2.SetFocus
End If
End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form2warning.Text1.Text = Text1.Text
End Sub
Private Sub Command2_Click()
MsgBox "您已成功退出！", vbOKOnly + vbExclamation, "提示"
Unload Me
End Sub

Private Sub Image1_Click()
Unload Me
Formimage.Show
End Sub

Private Sub Label3_Click()
Shell "explorer "
End Sub

数据库都没打开怎么就开始查询记录了 加上这段 set conn = new adodb.connection conn.open "provider=microsoft.jet.oledb.4.0;persist security info=false;data source=数据库名.mdb;jet oledb:database password=" 加最前面，就是dim sql as string的前面。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息