哈，一直都是上班的呀

我的是这样写的.已经测试过了


Private Sub cmdok_Click()
Dim txtsql As String
Dim rs1 As ADODB.Recordset

If Len(atxtUserName) = 0 Then '判断输入是否为空
MsgBox "请输入用户名！", vbOKOnly + vbExclamation
ElseIf Len(atxtPWD) = 0 Then
MsgBox "请输入密码！", vbOKOnly + vbExclamation

Else
txtsql = "select * from 用户 where 用户名 = '" & Trim(atxtUserName.Text) & "'" '检验输入用户名是否存在
Set rs1 = ExecuteSQL(txtsql)
If rs1.RecordCount = False Then
MsgBox "该用户名不存在，请重新输入！", vbOKOnly + vbExclamation
Exit Sub
End If
txtsql = "select * from 用户 where 密码 = '" & Trim(atxtPWD.Text) & "'" '检验输入的密码是否正确
Set rs1 = ExecuteSQL(txtsql)
If rs1.RecordCount = 0 Then
MsgBox "密码不正确，请重新输入！", vbOKOnly + vbExclamation
Exit Sub
Else
Unload Me
frmmain.Show

End If
End If

End Sub