Private Sub Form_Load()
Dim CN As New Connection
Dim RS As New Recordset
With CN
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source") = "C:Db1.mdb"
    .CursorLocation = adUseClient
    .Open
    Set RS = .OpenSchema(adSchemaTables)
    Do While Not RS.EOF
        If RS("TABLE_TYPE") = "TABLE" Then Combo1.AddItem RS("TABLE_NAME")
        RS.MoveNext
    Loop
End With
End Sub