Problemas al Validar EOF and BOF

[Lisandroaa]

Buenas tardes, al que me pudiera ayudar se lo agradezco, estoy teniendo problemas al momento de validar Recordset vacio de mi BD obviamente mediante .EOF y .BOF, al momento de ejecutar me arroja:

Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: ''


Aca les expongo mi codigo:

<%
Dim consulta_regcliente__MMColParam
consulta_regcliente__MMColParam = "1"
If (Request.QueryString("ci") <> "") Then
consulta_regcliente__MMColParam = Request.QueryString("ci")
End If
%>
<%
Dim consulta_regcliente
Dim consulta_regcliente_cmd
Dim consulta_regcliente_numRows

Set consulta_regcliente_cmd = Server.CreateObject ("ADODB.Command")
consulta_regcliente_cmd.ActiveConnection = MM_bdviccell_STRING
consulta_regcliente_cmd.CommandText = "SELECT * FROM clientes WHERE ci = '" & Request.Form("ci") & "'"
consulta_regcliente_cmd.Prepared = true
consulta_regcliente_cmd.Parameters.Append consulta_regcliente_cmd.CreateParameter("param1", 200, 1, 255, consulta_regcliente__MMColParam) ' adVarChar

If consulta_regcliente.BOF = False And consulta_regcliente.EOF = False Then <-- acá la linea que indica el error
Set consulta_regcliente = consulta_regcliente_cmd.Execute(consulta_regclient e)
consulta_regcliente_numRows = 0

Else
%>

<SCRIPT LANGUAGE="JavaScript">
alert("NO HAY REGISTRO");
document.location=("src_cliente.asp");
</SCRIPT>
<% End If %>

El objetivo es que al momento de realizar una consulta y el recordset se encuentre vacio arroje el alert que indique que "NO HAY REGISTRO" y redireccione a mi "src_cliente.asp".

Muchas gracias por la ayuda.