why do i get this error if my fields are correct?
DB table Users
UserID, UserNme ,UserPass
Code:
Dim EmpNo As String
Dim stat As String
Sub Verify_Account()
stat = 0
strSQL = "SELECT * FROM Users"
With rs
.MoveFirst
While Not .EOF
If Txt(0).text = .Fields!UserName And Txt(1).text = .Fields!UserPass Then
EmpNo = .Fields!UserID
CN.Close
stat = 1
Exit Sub
Else
.MoveNext
End If
Wend
MsgBox "user name or password wrong"
End With
CN.Close
End SubUserID, UserNme ,UserPass