YA REVISE TODO DE NUEVO
LA CONSULTA ME DEVUELVE LOS MUNICIPIOS DE ACUERDO AL ESTADO QUE SELECCIONE, LOS TEXT ESTAN ENLAZADOS EN TIEMPO DE DISENO A CADA CAMPO DE CADA TABLA, LA CONEXION ESTA BIEN HECHA, NO ME DEVUELVE NINGUN ERROR PERO LOS TEXT NO ME MUESTRAN LA SELECCION QUE HAGO EN LOS DATACOMBO Y YO VOLVIENDOME CADA VEZ MAS TRAUMADO.
ESTE ES EL ULTIMO CODIGO QUE TENGO
Private Sub DataCombo2_Click(Area As Integer)
Dim Rs As Recordset
Dim Conexion As Connection
Set Rs = New Recordset
Set Conexion = New Connection
Conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Japan Airlines\My Documents\ESTADOS_Y_MUNICIPIOS.mdb;Persist Security Info=False"
Rs.ActiveConnection = Conexion
Adodc1.RecordSource = ("select Municipio,Clave0 ,Clave1 ,Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'")
Adodc1.Refresh
TODO FUNCIONA BIEN A EXCEPCION DE LAS CAJAS DE TEXTO