hi! how to force the recordset not to move to the next record, if I check that in the 'rst_WillMove' event user made not valid input?

for example:

Private Sub rst_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If not blnTest then
' something wrong, the record must stay the same !!!
End If
End Sub

*** VB6+Ado ***

thank You !!!