I would like to know how to populate the tables in Access? I have the sample code below but it use DAO.. I want to use ADODB connection, so What reference I can use to populate the access 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