Hi,

I have the below query and for some reason on the where clause it is coming back with a 'Type mismatch' error.
MaintCause is a character field, Disaster is surrounded by single quotes.

Driving me nuts
Any help would be greatly appreciated
Hayden

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open "driver={Microsoft dBase Driver (*.dbf)}; driverid=277;dbq=" + root_directory + "\MAINT\"
c1SQL = "Select * from LnMt.dbf Where MaintCause = 'Disaster'"
    
rs.Open c1SQL, cn, , , adCmdText