Cargar DataCombo con nombre de Tablas

[wwwmaster]

Algo como esto:
Dim cnnDB As ADODB.Connection
Dim rstList As ADODB.Recordset

Set cnnDB = New ADODB.Connection

' Abre conexion
With cnnDB
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open strDBPath
End With

' Open the tables schema rowset.
Set rstList = cnnDB.OpenSchema(adSchemaTables)

' Ciclo para leer objetos

With rstList
Do While Not .EOF
If .Fields("TABLE_TYPE") <> "VIEW" Then
Debug.Print .Fields("TABLE_NAME") & vbTab & _
.Fields("TABLE_TYPE")
End If
.MoveNext
Loop
End With
cnnDB.Close
Set cnnDB = Nothing