Visual Basic - ADO

Hola :
Estoy haciendo una agenda.
Pregunta:
Tengo una MDB con campos FECHA, HORA Y CITA.(tres texbox)
Cuando grabo una cita nueva quiero que el programa lea si la fecha y la hora ya existen MSGBOX "Cita existente", sino agrego una nueva.
Lo que seria mas o menos así:
with ado.recordset
ado.recorset.find "fecha=" fecha.text and hora.text
if esto es verdadero then
msgbox "La cita ya existe"
Else
ado.recordset.addnew
etc,etc...
end if
end with
Desde ya muchas gracias.
Saludos.
Horacio

Hazte una consulta SQL:

rs.Open "SELECT * FROM Tabla WHERE Fecha=#" & Fecha.Text & "# AND Hora BETWEEN #" & Format(cDate(Hora.Text), "hh:MM:ss") & "# AND #" & Format(cDate(Hora.Text)+1/24,"hh:MM:ss") & "#"

La consulta selecciona únicamente los registros en que coincida la fecha y la hora esté entre la de una cita y una hora más tarde (así tienes tiempo de ir a las dos...). Si como resultado Recordcount >0 querrá decir que ese momento está ocupado. Si Recordcount = 0, añades el registro y andando...

Un saludo