am using vb6 and ms office 2007 on Windows 7 professional platform
i wrote code as below
dim db as database
dim rs as recordset
dim ws as workspace
Private Sub Form_Load()
Set db = OpenDatabase(app.path & "\Contacts.mdb")
Set rs = db.OpenRecordset("Info", dbOpenTable)
Now, when i run my code then and error call "run time error 13 - type mismatch"
i created my database with ACCESS 2000 and i have already installed SP6 for VB6
earlier i used XP and i never find this kind of error. i dnt find same problem with my earlier codes. i find this error in NEW codes only....
plz help, where i am going wrong...
Edited 5 Years Ago by kbj123: n/a