我检查了好久都没找到错误，在线求指导？

Question

Private Sub Command4_Click()
Set cnn = New ADODB.Connection
cnn.Open = "Provider=Microsoft.Jet.OLEDB.4.0; DataSource=a.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
rs.Open "select * from b", cnn, adOpenStatic, adLockReadOnly
If rs.BOF And rs.EOF Then
MsgBox "请核实是否正确！"
Text3.Text = ""
Text3.SetFocus
Else
If rs.Fields("称号") = Text3.Text And rs.Fields("昵称") = Text2.Text Then
MsgBox "欢迎登录！"
form1.Hide
Form3.Show
Else
MsgBox "昵称输入有误！"
Text2.Text = ""
Text2.SetFocus
form1.Show
Form3.Hide
End If
End If
End Sub

Answer 1

看不出来，是不是前几行？如果你页面上有“Option Explicit”要求定义变量，我改了下：Dim cnn As ADODB.ConnectionSet cnn = New ADODB.Connectioncnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _"Persist Security Info=False;User ID=Admin; " & _"Jet OLEDB:Database Password=; Data Source=a.mdb"Dim rs As ADODB.RecordsetSet rs = New ADODB.Recordset

Answer 2

把Option Explicit去掉