Visual Basic - .EOF = FALSE

Saludos estoy desarrollando mi aplicación y en el botoón guardar coloco la instruccion más una busqueda para determinar si los datos ya han sido ingresado y preguntarle al usuario si lo decea actualizar, para tal fin colo estan lineas de código

_______________________________________________________

Dim ccone As ADODB.Connection
Set ccone = New ADODB.Connection
With ccone
.Provider = "microsoft.jet.oledb.4.0"
.Open (App.Path & "\alquiler_97.mdb")
End With

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


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


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


Dim resp As Integer


If Text1.Text = "" Then
MsgBox "No hay Datos que Guardar,Ingrese Número de expediente", vbCritical + vbOKOnly, "Información"
Text1.SetFocus
Else
If Text1.Text <> "" Then
buscar.Open "SELECT * FROM pa WHERE edificio= '" & Text1.Text & "' and locall= '" & Text2.Text & "' and expediente= '" & Text3.Text & "' and mes = ' " & Text4.Text & "'", ccone

If buscar.EOF = True Then

guardar.Open " INSERT INTO pa " _
& "(edificio,locall,expediente,mes,monto,cobrado,cancelado) VALUES " _
& "('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "','" & Text5 & "','" & Text6 & "','" & Text7 & "');", ccone
MsgBox "Datos Guardados", vbInformation + vbOKOnly, "Información"

Else

If buscar.EOF = False Then

resp = MsgBox("Datos ya existen, Desea Actualizarlos?", vbInformation + vbYesNo, "Información")

If resp = 6 Then

actualizar.Open "UPDATE pa " _
& "SET edificio = '" & Text1.Text & "', locall = '" & Text2.Text & "', expediente = '" & Text3.Text & "', mes = '" & Text4.Text & "', monto = '" & Text5.Text & "', cobrado = '" & Text6.Text & "', cancelado = '" & Text7.Text & "' WHERE edificio= '" & Text1.Text & "' and locall= '" & Text2.Text & "' and expediente= '" & Text3.Text & "' and mes = ' " & Text4.Text & "';", ccone

MsgBox "Datos Actualizados con exito", vbInformation + vbOKOnly, "Información"

End If
End If
End If
End If
End If

________________________________________________________________

El problema esta que el buscar.EOF = False no lo esta tomando! cuando ingreso satos repetidos sale el msj de datos guardados ! colocandolo tambien en la base de datos ! ayuda por favor muchas gracias.