The following line in the code below generates a Data Type Mismatch Error any ideas why? I took the code straight out of a MSAccess book.

Set R = CurrentDb.OpenRecordset(SQLText)

Private Sub Command32_Click()
    
cDim R As Recordset, SQLText
SQLText = "Select * From Product Where Catalog = 'CAT3'"
Set R = CurrentDb.OpenRecordset(SQLText)
If R.RecordCount Then

    MsgBox "Record exists"
Else
    MsgBox "Record not found"
End If

End Sub