Visual Basic - Ejecutar una consulta en un formulario

Hola a tod@s

mi pregunta es la siguiente, ojala que me puedan ayudar
como llamo a una consulta access por código sql desde un formulario

tengo algo mas o menos así:

Dim rst_access As ADODB.Recordset
Set rst_access = New ADODB.Recordset

rst_access.Open "select * from [Consulta1]", chica
chica.Execute "delete from Consulta1;"

Dim stUpd As String
With rst_access
.MoveFirst
Do While Not .EOF
stUpd = "INSERT INTO Consulta1 (rut,sede) VALUES('" & .Fields("rut") & "','" & .Fields("sede") & "');"
chica.Execute stUpd
.MoveNext
Loop
End With

pero este codigo me muestra el siguiente error:
"no se puede utilizar una consulta de acción como origen de fila"

si alguien me puede ayudar, se agradece mucho