Por que demonios me sale este error "No coinciden los tipos" ya me harte !!!
eh aqui mi codigo: a ver si ustedes encuentran el error.
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, Clave0, Clave1, Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'"), Conexion, adOpenStatic, adLockBatchOptimistic, adCmdText
Adodc1.RecordSource = ("select Municipio, 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 DataCombo1.RowSource = Adodc1
DataCombo1.ListField = "Municipio"
Adodc1.Refresh
Rs.Close
Set Rs = Nothing
End Sub
Hago notar que los campos en la tabla de access son de tipo texto.