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