Encontrar en una DB

[bakanzipp]

y por que no pruebas usando un exit loop con una condicion simple?

Código:

fecha=date()
flag=true
while flag=true

 sql="select * from tabla where fecha='" & fecha & "';"
 set rs =conexion.execute(sql)
 if not rs.eof and not rs.bof then
   flag = false
 else
  fecha = dateAdd("d",-1,fecha)
 end if

wend

ASI SE SALDRA CUANDO ENCUENTRE REGISTROS SEGUN LA FECHA....

ESO SI..ANTES DE ESTO DEBES CONTROLAR SI LA TABLA POSEE REGISTROS..PORQUE SINO EL LOOP SERA INFINITO.