Type Mismatch with Recordset

[mikeyb540]

Hi, I get a Runtime error '13' Type Mismatch. error

My code is:
Dim rs As Recordset
Dim SQL As String
SQL = "SELECT count(table1.test) as TestCount FROM table1"
Set rs = CurrentDb().OpenRecordset(SQL)
Me.txtTest = rs("TestCount&quot
rs.Close

Tried the ADODB for Dim rs As ADODB.Recordset and still the same error.

Any thoughts?

Txs in advance
Mike

 

[mikeyb540]

Found the solution. FYI to those who might have Type Mismatch errors.

It appears that by default MS-access 9 or higher default to ADO. If you change it to DAO the problem is solved.

To change to DAO go to Module edit:
TOOLS\PREFRENCES then uncheck ActiveX Data Object and check the Microsoft DAO.

Mike