DAO criteria type mismatch error

[kisho87]

i have coded a username password program via using DAO control
created a ms access 7.0 DB file and linked with data1 control and used 2 textbox controls for username and password.
For login cmd button i have written below codes
Dim strCritaria As String
strCritaria = " [Username] = ' " & txtuse.Text & " ' " And "[Password] = ' " & txtpass.Text & " ' "
Data1.Recordset .MoveFirst
Data1.Recordset .FindFirst (strCritaria)
If Data1.Recordset .NoMatch Then
MsgBox "Invalid Entry"
txtuse.Text = ""
txtpass.Text = ""
Else
MsgBox "Login Succussfull"
End If
in execution i am getting type mismatch runtime error 13 in strCritaria line
any help regarding this will be appreciated...
sorry i am new to vb6

[PatMc]

Error in criteria code

Hi,
If this line of criteria is correct then change it to the line I have modified below
strCritaria = " [Username] = ' " & txtuse.Text & " ' " And "[Password] = ' " & txtpass.Text & " ' "

Modified line
strCritaria = " [Username] = ' " & txtuse.Text & " ' And [Password] = ' " & txtpass.Text & " ' "

[patjones]

Also be careful about padding the criteria with spaces, as you have done. The way you've written out the criteria, if they type in "zepphead80 " for the user name, the criteria will read [Username] = ' zepphead80 '. If zepphead80 existed as a user in your table, it wouldn't be found. Modify the criteria as:

strCritaria = " [Username] = '" & txtuse.Text & "' And [Password] = '" & txtpass.Text & "'"

which would then give you [Username] = 'zepphead80'.

Pat

[kisho87]

wow guys well done
it works
thank you
PatMc & zepphead80