OpenRecordSet: Error Type Mismatch

[suoirotciv]

I have this code below in VB. And i got this Run-time error '13': Type mismatch

Did I miss something???

Thanks for any help to resolve this problem

===================================================
'REFERENCE: DAO 3.51

If Len(Dir$("c:\Database.mdb&quot) > 0 Then Kill ("c:\Database.mdb&quot
If Len(Dir$("c:\Database.mdb&quot) = 0 Then
Set tmpDB = CreateDatabase("C:\Database.mdb", dbLangGeneral)
tmpDB.Execute "CREATE TABLE Table1 (Field1 NUMBER, Field2 DATE)"
End If

Set tmpRS = tmpDB.OpenRecordset("Table1&quot
With tmpRS
.AddNew
!Field1 = Value1
!Field2 = Value2
.Update
End With
Please pardon the grammar.
Not good in english.

 

[suoirotciv]

Hey i already got the answer from a friend

i just need to add the DAO to my declaration

my previous declaration was
Dim tmpRS as Recordset

This one is right
Dim tmpRS as DAO.Recordset Please pardon the grammar.
Not good in english.

 

[Transcend]

Ah,

well done suoirotciv


Transcend