Cargar DataCombo con nombre de Tablas

[jeaguiar25]

Buenas tardes amigos Foreros, quisiera saber si alguien tiene idea de cómo cargar en un Datacombo o Combobox una lista de las tablas existentes dentro de una base de datos acces que tenga una condicion (Ej. que empiecen con un cáracter específico), estoy trabajano con VB6............................................... ..........
gracias de antemano

[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