Nunca creas un recordset, necesitas hacer algo como:
Código ASP:
Ver original.
.
.
consulta_regcliente_cmd.Prepared = true
consulta_regcliente_cmd.Parameters.Append consulta_regcliente_cmd.CreateParameter("param1", 200, 1, 255, consulta_regcliente__MMColParam) ' adVarChar
'Crea objeto recordset
Set consulta_regcliente = consulta_regcliente_cmd.Execute
'Consulta si es EOF
if consulta_regcliente.EOF then
.
.
.
Saludos