hi

i have created an adodc1 and a label1. i want the label to display the record number each time the record changes.

i have written this:

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

Label1.Caption = "record :" & CStr(adodc1.Recordset.AbsolutePosition)

End Sub

but it brings up an error saying compile error and highlights the top row which is automatically generated.

i dont know how o fix this. pls help

thanks