GRACIAS GEO , HE PUESTO COMO ME DICES PERO ME DA EL SIG ERROR Y ME SACA DE VB6. NO ME MARCA NINGUN ERROR EN EL CODIGO SOLO ME SACA DEL PROGRAMA.
Private Sub DataCombo2_Click(Area As Integer)
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
Adodc1.RecordSource = ("select Municipio,Clave0 ,Clave1 ,Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'")
Adodc1.Refresh
Set Text23.DataSource = Adodc2
Text23.DataField = "ESTADO"
Set Text24.DataSource = Adodc2
Text24.DataField = "CLAVE"
Set Text25.DataSource = Adodc2
Text25.DataField = "CLAVE1"
End Sub
VB6.EXE HAS GENERATED ERRORS AND WILL BE CLOSED BY WINDOWS
YOU WILL NEED TO RESTART THE PROGRAM
AN ERROR LOG IS BEEN CREATED
ALGUN TIP???
