I couldn't get it to work with a dbcombo although i'm sure there's a way, i got the following to work with a listbox, and a regular combo (either or will do i just added them both in to see if it worked):

Code:
Dim objConn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()

Set objConn = New ADODB.Connection
     
            objConn.open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\Program Files\Landlord\db1.mdb;"
     
Set rs = objConn.OpenSchema(adSchemaTables)
  Do Until rs.EOF = True
     List1.AddItem (rs!Table_Name)
        Combo1.AddItem (rs!Table_Name)
  rs.MoveNext
Loop

rs.Close
objConn.Close
End Sub
of course you'll need to change variables and paths etc...
hope it helps