GRACIAS GEOAVILA, YA SETEE EL DATACOMBO PERO NI ASI, SIGUE DANDO EL MISMO ERROR "NO COINCIDEN LOS TIPOS"
ESTE ES MI CODIGO
Private Sub DataCombo2_Click(Area As Integer)
Text23.Text = DataCombo2.Text
Dim SQL As String
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
Rs.Open ("select Municipio,Estado,Clave0,Clave1,Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'"), Conexion, adOpenStatic, adLockBatchOptimistic, adCmdText
Adodc2.RecordSource = ("select ESTADO,CLAVE,CLAVE1 from ESTADOS")
Adodc1.RecordSource = ("select Municipio,Estado,Clave0 ,Clave1 ,Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'")
Set Text23.DataSource = Adodc2.Recordset.Fields("ESTADO")
Set Text24.DataSource = Adodc2.Recordset.Fields("CLAVE")
Set Text25.DataSource = Adodc2.Recordset.Fields("CLAVE1")
Set DataCombo2.RowSource = Adodc2
Set DataCombo2.DataSource = Adodc2
DataCombo2.BoundColumn = "ESTADO"
DataCombo2.ListField = "ESTADO"
DataCombo1.ListField = "Municipio"
Adodc1.Refresh
Adodc2.Refresh
Rs.Close
Set Rs = Nothing
End Sub
EN FIN SEGUIRE BUSCANDO LA SOLUCION Y/O ESPERANDO LA AYUDA DIVINA
JEJEJE
