Visual Basic - ke tengo mal!!!!!!!!!

hola : si me pueden ayudar con estoooooooooooooo!!!!
kiero mandar 3 datos a una base de datos en una sola tabla....pero me marca error en el SET<<----necesita variable tipo object o while no se ke..............<<.---.eso aparece.....

Set consultas = base.Execute("SELECT * FROM capturista WHERE nombre_cap='" & Text1 & "' ORDER BY ap_pat") '" & Text1)
If Not (consultas.EOF And consultas.BOF) Then
Set consultas = base.Execute("SELECT * FROM capturista WHERE usu_cap='" & Text2 & "' ORDER BY ap_pat") '" & Text1)
If Not (consultas.EOF And consultas.BOF) Then
Set consultas = base.Execute("SELECT * FROM capturista WHERE pass_cap='" & Text3 & "' ORDER BY ap_pat") '" & Text1)
If Not (consultas.EOF And consultas.BOF) Then
MsgBox "Contacto existente", vbCritical + vbOKOnly, "Error"
Exit Sub

Yo hago las busquedas asi.. no se si te sirva

Dim Dbs As Database, Resultado As Recordset
Set Dbs = OpenDatabase(App.Path & "\Datos.mdb")

Set Resultado = Dbs.OpenRecordset("SELECT * FROM Altas WHERE Pedimento_Numero='" & Text1 & "';")

If Resultado.RecordCount > 0 Then
' si hay resultado..
Else
' si NO hay resultado
End If

Dbs.Close