Hi all,

I'm using Access 2002/XP for my MS Access simple dB project. I have a simple form and when I click on the button, it will trigger the codes below. However, I always receive this Message:

"Run-time error 13: Type Missmatch"


My coding:

Option Compare Database
Option Explicit
Dim dbs As Database
Dim rsUser As Recordset
Dim bolVerify As Boolean

strLogin = Me.txtLogin
strPsd = Me.txtPassword
Set dbs = CurrentDb
Set rsUser = New Recordset
Set rsUser = dbs.OpenRecordset("SELECT * from userlogin")

My userlogin table consist of few text fields. I don't know how to solve this problem. Please help me out. Thanks.

I'm surprised you are not getting undefined variable error messages.

Dim strLogin As String
Dim strPsd As String

Did you put a watch on the code?

HTH


mmcdonal

hi mmcdonal,

yes i did. I manage to figure out what's wrong with it, after some testing and reading. the declaration of the recordset should be: Dim rsUser As dao.Recordset

For me, the error message don't seem to represent the error itself. Thanks.

That sounds like a reference problem. Perhaps you should change the order of references if you have both DAO and ADO selected.

mmcdonal