I'm getting a database open error 13 - type mismatch on the 'Set mydata - ... ' statement.
Can anyone help out ?
' ***************************************
Dim mydb As Database
Dim mydata As Recordset
On Error GoTo errHandler
Set mydb = Workspaces(0).OpenDatabase _
("C:\MDB\TOM3.MDB")
Set mydata = mydb.OpenRecordset _
("Table1", dbOpenTable)
' ****************************************