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.

una pregunta! las tablas de la bd estan relacionadas... y se actualizan por cascada? eso seria ed una muy buena ayuda...
este es un codigo mio de un filtro de sistema, organo y sus muestras


Private Sub Form_Load()
Entrar = "Select * from SISTEMA"
Cargar.Open Entrar, Conexion, adOpenDynamic, adLockOptimistic
If Not Cargar.EOF Then
While Cargar.EOF = False
CmbSistema.AddItem Cargar!Descp_Sistema
Cargar.MoveNext
Wend
Else
MsgBox "No existe ningun sistema, Agregue nuevos sistemas", vbInformation, "INFORMACIÓN"
Cargar.Close
Exit Sub
End If
Cargar.Close

Entrar = "Select * from SISTEMA"
Cargar.Open Entrar, Conexion, adOpenDynamic, adLockOptimistic
If Cargar.EOF Then
MsgBox "No existe ningun Organo, Agregue nuevos organos", vbInformation, "INFORMACIÓN"
Cargar.Close
Exit Sub
End If
Cargar.Close
End Sub


Private Sub CmbSistema_Click()
CmbOrgano.Clear
LstMuestra.ListItems.Clear
Entrar = "Select * from SISTEMA"
Cargar.Open Entrar, Conexion, adOpenDynamic, adLockOptimistic
If Not Cargar.EOF Then
While Cargar.EOF = False
If CmbSistema.Text = Cargar!Descp_Sistema Then
campo = Cargar!Id_sistema
End If
Cargar.MoveNext
Wend
End If
Cargar.Close
If CmbSistema.Text <> "" Then
CmbOrgano.Enabled = True
Entrar = "Select * from ORGANO"
Cargar.Open Entrar, Conexion, adOpenDynamic, adLockOptimistic
If Not Cargar.EOF Then
While Cargar.EOF = False
If campo = Cargar!Id_sistema Then
CmbOrgano.AddItem Cargar!Desc_Organo
campo2 = Cargar!Id_Organo
Cargar.MoveNext
Else
Cargar.MoveNext
End If
Wend
End If
Cargar.Close
Else
CmbOrgano.Clear
CmbOrgano.Enabled = False
End If
End Sub

Private Sub CmbOrgano_Click()
Entrar = "Select * from MUESTRA"
Cargar.Open Entrar, Conexion, adOpenDynamic, adLockOptimistic
LstMuestra.ListItems.Clear
If Cargar.RecordCount < 0 Then
While Not Cargar.EOF
If campo2 = Cargar!Id_Organo Then
Set itmX = LstMuestra.ListItems.Add(, , Cargar!Id_Muestra)
itmX.SubItems(1) = Cargar!Desc_Muestra
Cargar.MoveNext
Else
Cargar.MoveNext
End If
Wend
End If
Cargar.Close
End Sub