Solved: VBA-SQL Type Mismatch

[maestro_01]

Hello, anytime I try to run this code:

[VBA]Public Function addNoneApplication()
Dim applicationRst As Recordset
Set applicationRst = CurrentDb.OpenRecordset("SELECT Application.Application_ID, Application.Application_Name " & _
"FROM Application")
applicationRst.AddNew
applicationRst(0) = -1
applicationRst(1) = "None"
applicationRst.Update
End Function[/VBA]

I get a type mismatch error at

[VBA]Set applicationRst = CurrentDb.OpenRecordset("SELECT Application.Application_ID, Application.Application_Name " & _
"FROM Application")[/VBA]

Any ideas?

I have Option Compare Database set at the beginning of the module.

Thanks,

Maestro.

[Imdabaum]

[VBA]

Public Function addNoneApplication()
Dim applicationRst As Recordset
Set applicationRst = CurrentDb.OpenRecordset("SELECT Application.Application_ID, Application.Application_Name " & _
"FROM Application")
applicationRst.AddNew
applicationRst.Fields(0) = -1
applicationRst.Fields(1) = "None"
applicationRst.Update
End Function

[/VBA]

[hansup]

If your application has a reference set for ADO with a higher priority than DAO, your DIM statement for the recordset might be interpreted as the wrong type of recordset.

It has to be a DAO recordset for CurrentDb.OpenRecordset, so declare it that way explicitly in your DIM statement:

[VBA]Dim applicationRst As DAO.Recordset[/VBA]

[maestro_01]

Thanks guys!, it worked!