Visual Basic - Para los Mejor en el Tema Sql

hola amigos no se como hacer mas exacta esta consulta en sql quiero ingresar el rut y me muetre todos los campos de la base de datos pero con la condicion que me muetre el campo facturado y ese campo tiene que ser igual a uno (1)pero no se como hacerlo esto es lo que hice
mostrar rut con el campo facturado pero con la condicion que se igual a uno(1) de lo cantrario diga que no existe

Private Sub cmdFind_Click()
Dim StrSQL As String
Dim StrAnswer As String
StrAnswer = InputBox("descripción", "Buscar registros")
StrSQL = "Select * from Facturas where [RUT] like " & _
"'*" & StrAnswer & "*'"
Set RecFacturas = DbCurrent.OpenRecordset(StrSQL)
If RecFacturas.RecordCount = 0 Then 'no se encontraron registros
MsgBox "No se ha encontrado ningún Registro coincidente. " & _
"Mostrando todos los registros."
Set RecFacturas = DbCurrent.OpenRecordset("Ruta")
Else
RecFacturas.MoveFirst
FillFields' puebla en los text
End If
End Sub

Aparentemente todo esta bien...
pero RecordCount no te devuelve el numero de registros si no te has desplazado hasta el ultimo.
Asi que intente cambiar la condicion a:

If RecFacturas.EOF Then

EOF sera verdadero si no hay registros que cumplan con la condicion.

conn los botones siguiente o anterir lo boy buscando pero la quiero mas exacta que muestre el rut con los datos pero caon el campo facturado que sean igual a uno