how to force?

[arnas]

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 !!!

[Aldea]

Perhaps this will help.
Private Sub rst_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If not blnTest then
msgbox "Invalid Input"
exit sub
'text1.setfocus
End If
End Sub

[arnas]

nope, the solution was to write
"adstatus = adStatusCancel".
thanks!