Private Sub cmdOK_Click()
Dim rs As New ADODB.Recordset
Dim cmd As New

If txtUserName.Text = "" Then
MsgBox "用户名不能为空!"
txtUserName.SetFocus
Exit Sub
Else
Call ConToSQLDB
cmd.ActiveConnection = sqlcon
= "select * from auserlist where id='" & txtUserName.Text & "'"
Set rs = cmd.Execute
    If rs.EOF Then
      MsgBox "用户不存在!"
      rs.Close
      sqlcon.Close
      txtUserName.SetFocus
      Exit Sub
    ElseIf rs!pwd <> txtPassword.Text Then
      MsgBox "密码不正确!"
      rs.Close
      sqlcon.Close
      txtPassword.SetFocus
      Exit Sub
    Else
       caozuoyuan = txtUserName.Text
       rs.Close
       Set rs = Nothing
       sqlcon.Close
       Unload Me
       Form1.Show
      
    End If
End If
End Sub

这段代码还是你(dawn4640576),给我的代码,我对  rs!pwd <> txtPassword.Text  这一句不太明白,为什么不能写成  rspwd = txtpassword.text  呢?

哦,好的,谢谢你!呵呵,我初学VB,是不是提的问题让你们有点无耐了!报歉啦!我也是有些语句看不懂,所以自己写程序的时候总是问题一大堆,运行不了!现在还是对ADO方面的东西好多都看不懂,不明白!