Visual Basic - Problema con EOF y BOF en vb6

Un saludo, me estoy iniciando en Visual Basic. 6.0

Estoy haciendo una pequeña agenda. Al hacer click en un Monthview, se busca en la base de datos si existe el registro, si existe se muestra en un Textbox y se puede modificar, si no existe se crea uno nuevo.

El fallo se muestra cuando no existe el registro y no se porque razon intenta escribir en el Textbox. ¿Como puedo poner el Find en un If? Muchas gracias.

Este la parte del codigo donde tengo el fallo

With Adodc1.Recordset
If Not .EOF And Not .BOF Then
vcontrol = 0
.MoveFirst
.Find "Datos = '" & DateClicked & "'"
memoria.Text = .Fields("memoria") & "" ' <-- Aqui ocurre el fallo
Else
.NextRecordset
vcontrol = 1
memoria.Text = ""
End If
End With

Despues de la instrucción .Find se deberia verificar que se ha encontrado el registro.



No se si esto es del todo correcto. Pero esto es mas o menos la idea.

Muchas gracias, lo probare a ver que ocurre.