porque me sale este error en adodc

[gavafra]

Hola, buenas tardes tengo el siguiente codigo que es para insertar de una tabla de access a otra los registros que cumplan con la condicion

Private Sub Picture3_Click()
Dim sql As String
Dim RS As ADODB.Command
Set RS = New ADODB.Command


If Calendar1.Value > Calendar2.Value Then
A = MsgBox("La fecha inicial debe ser menor o igual a la final", vbCritical + vbOKOnly, "Atención...")
Text1 = Empty
Text2 = Empty
Calendar1.Visible = True
Calendar2.Visible = False

Calendar1.SetFocus

Else

Adodc2.RecordSource = "INSERT INTO FOLIOS_HISTORICOS SELECT * FROM FOLIOS_USADOS WHERE DEFECHA BETWEEN #" & Text1 & "# AND #" & Text2 & "#"
Picture3.Visible = False
Picture1.Visible = True
If Adodc2.Recordset.RecordCount = 0 Then
Label2.Visible = True


End If
End If
End Sub

Pero al llamar el form en vb6 me sale el error :

Adodc2
"Operation is not allowed when object is closed"

Y cuando ejecuta la sentencia me detiene el programa y me sale el error :

"Variable de tipo object o la variable del bloque With no esta establecida"

Alguna Idea de como solucionarlo??

Como siempre Gracias por todo

[rahd_rr]

Adodc2
"Operation is not allowed when object is closed"


este error (sino mal recuerdo) es por que tienes que abrir el adodc

adodc.open
'''''operaciones con el adodc
..
.....
..
..
adodc.close
espero te sirva de algo ... suerte

....rahd RR

[xaquin]

una consulta de inserción no devuelve registros, por lo que deduzco que el error "Variable de tipo object o la variable del bloque With no esta establecida" se debe a que recordcount no existirá o no tendrá valor

de todas maneras porqué utilizas el adodc cuando estás declarando unas variables de tipo adodb.command, no partirá todo el error de que usas una variable incorrecta (adodc en vez de rs)