Run-time error 13 Type Mismatch

[Michael J Ross]

Hi

Been away from access for a while, I'm trying to run the following code

Dim MyDB As Database
Dim MyRS As Recordset
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
Dim TheAddress As String

Set MyDB = CurrentDb
Set MyRS = MyDB.OpenRecordset("Table1")
MyRS.MoveFirst

When i do i get the Run-time error 13 Type Mismatch error, when I click debug it takes me to

Set MyRS = MyDB.OpenRecordset("Table1")

Anyone got any ideas on what the mismatch is?

Thanks in advance for any input

 

[twoplustwo]

try removing the "set" in the line where you set the recordset to tbl1

 

[boblarson]

Change these lines:

Dim MyDB As Database
Dim MyRS As Recordset

to this:

Dim MyDB As [b][color=red]DAO.[/color][/b]Database
Dim MyRS As [b][color=red]DAO.[/color][/b]Recordset

 

[Michael J Ross]

Thanks Bob, that did the trick.