Sub GetTable2()
Dim rs As Recordset
Set rs = DBEngine.OpenDatabase("C:\Sales\StoreDB.mdb".OpenRecordset("Objects"
Range("A1".CopyFromRecordset (rs)
It's probably a W2K or XP database and you're still using an older DAO provider.
Check in Tools | References to make sure you're using DAO 3.6
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first
'People who live in windowed environments shouldn't cast pointers.'
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.