Yes, I already have it. Microsoft Active X Data Object 2.7 Library.

But when I uncheck this reference Microsoft DAO 3.6 Object Library, This cannot work "Dim db As Database" used it. Is there any reference I can replace DAO so that I can populate the tables into my combo box.. I don't want to use DAO anymore to populate the tables into my combo box.


Code:
    Dim db As Database
    Dim wrk As Workspace
    Dim tdf As TableDef
    For Each tdf In db.TableDefs
    If Left(tdf.Name, 4) <> "MSys" And tdf.Name <> "pass" And tdf.Name <> "KERJA" Then _
       cboTable.AddItem tdf.Name
    Next tdf