Run time error 3464

Hi to all,

I'm trying to connect to a database and an error occur
at the Set rsAlarm ... line. It's

Run-Time error 3464, Data type mismatch in criteria expression.

Can anyone help me please?

Dim ws As Workspace
Dim db As Database
Dim db As Database
Dim strConnection As String
Dim i As Integer

UserName = ""
UserPassword = ""
DataBaseName = "testing.dsn"
condResearch = True

If researchType = 1 Then

Set ws = DBEngine.Workspaces(0)
Let strConnection = "ODBC";
Set db = ws.OpenDatabase("", False, False, strConnection)
Set rsAlarm = db.OpenRecordset("SELECT * FROM Alarm", dbOpenForwardOnly)