Visual Basic - como se llena...

como se llena combo con nombre tablas mediante codigo ado

ademas como si tengo la tabla lleno un combo con los nombre de los campos de la tabla

Para tomar los valores de los campos, deberías usar la colección Fields

rs.Fields(index).Name

Dim cnn1 As New ADODB.Connection
Dim rstSchema As New ADODB.Recordset
cnn1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MyDSN"
cnn1.Open
Set rstSchema = cnn1.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
cmbSelect.AddItem rstSchema!TABLE_NAME
rstSchema.MoveNext
Loop
rstSchema.Close
cnn1.Close