comparar columnas de una tabla y que me de el valor de una de ellas

[jtrillo]

gracias por responder, pero estoy igual que el chico de la pag que me diste, voy a tratar de crear aqui las dos tablas:

tabla municipios:

id----municipios
1 ----Bejuma
2 ----Carlos Arvelo
3 ----Guacara
4 ----Mariara
5 ----san joaquin
6 ----puerto cabello
7 ----san diego
8 ----valencia

esta es la primera tabla y en la segunda tabla comunidades tengo

id----idmuniciio----comunidades
1 ---- 1 ----- bejuma
2 ---- 1 ----- san jose
3 ---- 1 ----- canoabo
4 ---- 2 ----- belen
5 ---- 2 ----- el pinal
6 ---- 2 ----- guacara
7 ---- 3 ----- acarigua
8 ---- 3 ----- pto santo
9 ---- 4 ----- irapa
10 -- 5 ----- cagua


entonces dependiendo del que escoja de la primera tabla q esta en el combobox1 me muestre en el combobox las opciones de es comunidad, si escojo guacara en el primer combobox en el segundo me muestre los q corresponde a ellas q serian los q tiene numero 3, acarigua y pto santo y asi sucesivamente, de todos modos voy a intentar hacerlo de la forma q me dices pero me gustaria hacerlo por codigo! o no se si como me dice es mas seguro, gracias ha y cargo el primer combobox cuando carga el formulario, estoy tratando con el ejemlo que da PEPLLUIS pero no lo puedo hacer la conexion q hago com mi base de datos es diferente y por lo que entiendo el crea como un recorset y despues de alli puede traer lo q esta en la tabla, pero yo creo mi consulta con la conexión y nno me da la opcion de .FILL te voy a colocar el codigo q tengo:




Private Sub SAVIR_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Query = "select estatus from savir_estatus"
Consulta = Conec.consulta(Query)

While Consulta.Read
cbCondicion.Items.Add(Consulta.GetValue(0))
End While


'************************************************* ************************
Query = "select * from savir_municipios order by municipio desc"
Consulta = Conec.consulta(Query)

While Consulta.Read
cbMunicipio.Items.Add(Consulta.GetValue(1))
'Dim Nuevo As New Municipio(Consulta.GetValue(0), Consulta.GetValue(1))
'Col_Savir.Add(Nuevo)

End While

End Sub

la q esta en rojo es donde lleno mi primer combobox pero de alli me tranco para poder hacer la llamada desde el otro combo dependiendo de l elegido en el primero