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

Question

Private Sub Command4_Click()Set cnn = New ADODB.Connectioncnn.Open = "Provider=Microsoft.Jet.OLEDB.4.0; DataSource=a.mdb;Persist Security Info=False"Set rs = New ADODB.Recordsetrs.Open "select * from b", cnn, adOpenStatic, adLockReadOnlyIf rs.BOF And rs.EOF ThenMsgBox "请核实是否正确！"Text3.Text = ""Text3.SetFocusElseIf rs.Fields("称号") = Text3.Text And rs.Fields("昵称") = Text2.Text ThenMsgBox "欢迎登录！"form1.HideForm3.ShowElseMsgBox "昵称输入有误！"Text2.Text = ""Text2.SetFocusform1.ShowForm3.HideEnd IfEnd IfEnd Sub

Answer 1

看不出来，是不是前几行？如果你页面上有“Option Explicit”要求定义变量，我改了下：

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection

cnn.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.Recordset
Set rs = New ADODB.Recordset

Answer 2

把Option Explicit去掉