Combo1 con tablas a otro combo2 con campos de la t

Hola quiero saber como se hace tengo un combo1 que tiene las tablas de una base datos y quiero que al seleccionar una tabla me muestre el campo1 de esa tabla en un combo2
Se como colocar las tablas
Dim rs1 As New ADODB.Recordset
Set rs1 = ex.OpenSchema(adSchemaTables)
rs.MoveFirst
Do Until rs1.EOF
If rs1!table_type = "TABLE" Then
Combo1.AddItem rs1!table_name
End If
rs1.MoveNext
Loop
y como colocar los campo
Dim rs2 As New ADODB.Recordset
Set rs2 = ex.Execute("SELECT pais FROM pais where pais")
Combo2.Clear
Do While Not rs2.EOF
Combo2.AddItem rs2.Fields("pais")
rs2.MoveNext
Loop
rs2.Close: Set rs2 = Nothing
Pero no se como de la tabla del combo1 me muestre el campo de es tabla
Gracias