Visual Basic - Problema con ado y combo

Hola todos.

Tengo un combobox lleno con las siguientes palabras: Paises, Departamentos Ciudades.
Cuando se hace click en alguna de estas palabras del combo, se activa otro combo el cual se llena desde una base de datos con una lista de diferentes paises, departamentos o ciudades segun lo que se haya escogido en el primer combo. Cuando en el segundo combo escojo un Pais (o un departamento o una ciudad), necestito buscar en otra tabla todos los datos que coincidan con el pais seleccionado, para llenar unos text.

Alguien me puede ayudar con esto? Si me pueden ayudar con codigo mucho mejor

Por adelantado muchas gracias.

SI FUERAS MAS ESPECIFICO CON EL FORMATO DE LAS BASES (TABLAS Y CAMPOS) Y LA CANTIDAD DE TEXT SERIA MEJOR

SI PROPORCIONARAS MAS DATOS (TABLAS ,CAMPOS , DATOS A BUSCAR) SERIA MAS FACIL. pERO QUIZAS ESTO AYUDE

' SUPONGAMOS QUE TENES UNA TABLA DISTINTA PARA CADA
' OPCION DEL COMBO1 Y OTRA BASE CON UN CAMPO QUE
' CONTIENE EL DATO PAIS, DPTO O CIUDAD

Dim DB As Database
Dim RS As Recordset
Dim RS1 As Database

Private Sub Combo1_Change()
TABLA = Combo1.Text
Set RS = DB.OPENRECORDSET(TABLA, DBOPENDYNASET)
With RS
.MOVEFIRST
Do Until .EOF
Combo2.AddItem .FIELDS("TABLA")
.MOVENEXT
Loop
End With
RS.Close
End Sub

Private Sub Combo2_Change()
Dim A As Integer
A = 0
CAMPO = Combo2.Text
Set RS1 = DB.OPENRECORDSET(TABLA2, DBOPENDYNASET)
Select Case TABLA
Case "PAIS"
CRITERIO = "PAIS = '" & CAMPO & "'"
Case "DEPARTAMENTO"
CRITERIO = "DEPARTAMENTO = '" & CAMPO & "'"
Case "CIUDAD"
CRITERIO = "CIUDAD = '" & CAMPO & "'"
End Select
With RS1
.MOVEFIRST
Do Until .EOF
.FINDFIRST CRITERIO
If Not .NOMATCH Then
A = A + 1
Text(A) = .FIELDS(CAMPO).Value
.MOVENEXT
End If
Loop
End With

End Sub