Numero de resultados

Estoy realizando mi proyecto fin de carrera con ASP y me ha surgido un
pequeño problema con las BD.

Tomo todos los datos desde un formulario y compruebo que no exista ningun
registro de ese usuario en esa fecha (lanzando una consulta a la base de
datos).
Si no existe ningún dato de ese usuario en esa fecha, la propiedad EOF de

consulta debería ser = True, con lo que compongo el texto de la insercion

la ejecuto.
En el caso de que exista algún dato de ese usuario en esa fecha, la
propiedad EOF debería ser FALSE y no relizarse la inserción... pero

entra a componer la orden de inserción y a ejecutarla... con lo que salta

error.

Aquí esta el código:

Dim conexion, registros,
basedatos,numero,consulta,numero2,registros_afectados, orden
consulta="SELECT * FROM LABORATORIO WHERE Num_id=' " Session("num_pac_id")

"'" + " AND FECHA LIKE '" + request.form("fecha")+"'"
basedatos = Server.MapPath("base\pacientes.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos

";"
Set registros = conexion.Execute(consulta)
if registros.EOF then 'Si no ese paciente no tiene ningún análisis en esa
fecha, se procede a la inserción
orden="INSERT INTO LABORATORIO VALUES ('"
orden=orden + Session("num_pac_id")+"' ,'"+ request.form("fecha")+"'
,'"+request.form("urea")+"' ,'"
' (...) unas cuantas lineas para componer la inserción
conexion.Execute(orden),registros_afectados
if registros_afectados=0 then %><h1>No ha sido posible realizar la
inserción</h1><% end if
if registros_afectados=1 then %><h1>La inserción se ha llevado a cabo

éxito </h1><% end if
else%>
<h1>No es posible realizar la inserción</h1><br><h2>El paciente ya

un análisis con fecha</h2>


El texto de la inserción está bien y el de la consulta anterior también.

de usar el método EOF para controlar que no hay resultado lo he probado en
otras partes del proyecto y si que funciona bien.

Muchas gracias de antemano. Ciao