Run time error '13 Type Mismatch

[PL01]

Dim myConnection03 As ADODB.Connection
Set myConnection03 = CurrentProject.Connection
Dim myRecordset03 As New ADODB.Recordset
myRecordset03.ActiveConnection = myConnection03
myRecordset03.Open "TempBin", , adOpenDynamic, adLockOptimistic

I keep getting the error message

"Run time error '13 Type Mismatch"

on the line of VBA code below. If I delete the line and retype it the program runs through ok. It hasn't been a disaster yet, but has me worried. Any ideas why this is happening?

"Set myConnection03 = CurrentProject.Connection"

 

[lameid]

There is corrupt compiled code in your module....

Try running Access with the decompile swictch on your application file, doing a "compact and reapair" and then compiling the code again.

Msaccess.exe "<File with Path for your applciation>" /decomplie

I generally just create a shortcut rather than going to the command prompt because you can copy and paste that way.

The other way to fix this is to import all objects into a new file but you lose any database properties you have set like startup form.