Visual Basic - Form_Unload no me resulta!!!!

Hola.

Estoy trabajando con un Form que tiene un DataGrid. La ídea es que si en el campo "Option" hay registros con el valor "Modificar registro", no permita que el usuario cierre el formulario hasta que el registro sea modificado, pero esto solo me resulta si el registro que tiene el foco presenta ese valor.
Como puedo hacer para que busque en todo el recordset antes de cerrar, no solo en el registro que tiene el foco?

Este es el código que uso.
Gracias


Private Sub Form_Unload(Cancel As Integer)

If miRecordset.Recordset.Fields("Option").Value = "Modificar registro" Then
MsgBox "No puede cerrar este formulario" _
+ Chr(10) + "hay registros sin modificar", vbCritical, "Error"
Cancel = True
Else
Unload Me
End If
End Sub

data1.recordset.movelast
cont = data1.recordset.recordcount
data1.recordset.movefirst
for i = 1 to cont
'Aqui colocas el codigo que muestras arriba _
pero cuando saque el mensaje colocale exit sub
next i

Espero te ayude