" No value given for one or more required parameters "
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 from MUNICIPIO where Estado = " & DataCombo2.Text, Conexion, adOpenStatic, adLockBatchOptimistic, adCmdText
Adodc1.Refresh
Set Adodc1.Recordset = RS
End Sub
Gracias
