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]

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