Private Sub cmdok_Click()
If Trim(TxtUserName.Text = "") Then
MsgBox "没有输入用户名称，请重新输入！", vbOKOnly + vbExclamation, "警告"
TxtUserName.SetFocus
Else '查询用户
GetConnected
Set rs = New ADODB.Recordset
str = "select * from psw where userID ='" & TxtUserName.Text & "'" '&select * from psw where userPSW='" & txtPassword.Text & "'"
rs.Open str, cn, adOpenDynamic, adLockOptimistic
If rs.EOF = True And rs.BOF = True Then
TxtUserName.Text = ""
txtPassword.Text = ""
MsgBox "没有这个用户，请重新输入！", vbOKOnly + vbExclamation, "警告"
TxtUserName.SetFocus
Else
If txtPassword.Text = rs!userPSW Then
TxtUserName.Text = rs!userID
rs.Close
Me.Hide
gUserName = Trim(TxtUserName.Text) '保存用户名称
Form2.Show '成功登陆修改窗口
Unload Me

Else
MsgBox "无效的密码，请重试!", vbOKOnly + vbExclamation, "警告"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End If
End If
End Sub

************************************************************************************************
请问老大们上面哪个错误怎么解决?提示错误"标准表达式中数据类型不匹配"

str = "select * from psw where userID ='" & TxtUserName.Text & "'" '&select * from psw where userPSW='" & txtPassword.Text & "'"

这句能得到什么? 自己设个断点看看就知道了.

再说了 我都不知道这行代码你是怎么能编译过去的 明显的语法错误; 把这里的错误改了 生成的sql语句仍然是语法错误

谢谢老大我自己笨了 本来有更简单的办法
贴出来呵呵
'工程引用Microsoft ActiveX Data Objects 2X Library
'通用 聲明
Public Con As New ADODB.Connection
Public rs As New ADODB.Recordset

'登陆事件
Private Sub cmdok_Click()
SQL = "select * from psw where userName='" & TextUserName.Text & "'" 'psw为数据库中的表格
Con.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & App.Path & "\test.mdb"
Con.Open
rs.Open SQL, Con, 1, 3
If rs.EOF Then
MsgBox ("此用户不存在!请检查用户名!!")
Else
If TxtPassWord.Text = rs("userPSW") Then
MsgBox ("密码正确,请登陆系统!")
Form2.Show
Else
MsgBox ("密码错误!")
End If
End If
rs.Close
Set rs = Nothing
Con.Close
Set Con = Nothing
End Sub