Error with DAO.DBEngine.36

URGENT!!  Here is my code in MS Access 2002 SP3 (Win XP Pro SP2 platform):

-------
Function ViewLink()

    Dim oDAO
    Set oDAO = CreateObject("DAO.DBEngine.36")
   
    Dim db As DAO.database
    Dim tbl As TableDef
   
    Set db = CurrentDb
    On Error Resume Next
    For Each tbl In db.TableDefs
        Debug.Print tbl.Connect
    Next tbl


End Function
-------

I am trying to set reference to DAO 3.6 via code in order for the rest of my module to work, but I get a "Compile Error / User-defined type not defined".  I know I'm missing something simple here, but I can't quite put my finger on it.  Help!

Thanks,
Mike
CCIG2006Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
JRCSystemsConnect With a Mentor Commented:
Here are your choices:

1. Either manually make a reference to DAO 3.6 in VB's PROJECT/REFERENCES,
    find and check [x] Microsoft DAO 3.6 Object Library.

or

2. Change the Type Name of all of your specific DAO object variables to "Object"
    If you don't have a reference to DAO in your VB project, you can't use early binding.

3. Unsure looking at your code snippet what "CurrentDB" is.
    Make sure its properly defined.
0
 
Jim HornConnect With a Mentor Microsoft SQL Server Developer, Architect, and AuthorCommented:
What's the purpose of the oDAO Dim/Set?  Remove them, and try running your code again.
0
 
GrahamSkanRetiredCommented:
I think that you will either have to set the reference to DAO in the IDE or use late binding.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.