Private Sub Command1_Click()
Dim xg As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
xg = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\xsgl.mdb"
cn.Open xg
rs.Open "select * from dl", cn, adOpenKeyset, adLockPessimistic
If rs.RecordCount > 0 Then
  If Text1.Text = "" Then
   MsgBox "请输入用户名", vbOKOnly + vbCritical, "登陆错误"
   Text1.SetFocus
   Exit Sub
  End If
     If Text1.Text <> "" Then
      Set rs1 = New ADODB.Recordset
          rs1.Open "select * from dl where user_id='" & Text1.Text & "'", cn, adOpenKeyset, adLockPessimistic
      Text2.SetFocus
     If rs1.RecordCount > 0 Then
       If Text2.Text <> "" Then
        rs1.Open "select * from dl where user_power='" & Text2.Text & "'", cn
        Command1.SetFocus
         If rs1.Fields("user_id") = Text1.Text And rs1.Fields("user_power") = Text2.Text Then
          form2.show
          unload.me
          Else
            MsgBox "信息错误!", vbExclamation + vbOKCancel, "登陆错误"
            Text1.Text = ""
            Text2.Text = ""
            Text1.SetFocus
         End If
        End If
      End If
    End If
End If
End Sub
请帮我看一下这个程序为什么登陆不另一个界面!谢谢了

會打開啊，你再把錯的地方發一下

没有出现任何错误，就是不能判断输入的用户名和密码，并且不会登陆到另一个界面。麻烦大家了。

不知怎么可以打开了，真是莫名其妙。谢谢了。顺便将代码上传。简单！

Private Sub Command1_Click()
     '检查正确的密码
  If Text1 = "2008520" Then
        Form2.Show
'form2为您登陆成功后希望弹出的窗口
        Me.Hide
        End If
    If Text1 <> "密码 " Then
        Form3.Show  
'form3为您登陆失败后希望弹出的窗口
        Me.Hide
        End If
End Sub

是呀

学习中