Urgent data caption to display number of current record

I am using a data control, I need when the user scolls/jumps to a rtecord for it to tell the user what number record it is in.
Like access dos ie record 1,record 23

Thank you
[email protected]

------------------

Try this,

Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'This will display the current record position for this recordset
datPrimaryRS.Caption = CStr(datPrimaryRS.Recordset.AbsolutePosition)
End Sub

I don't know if this can help but there is a program in VB that's called "Visual Data Manager".
If you start it and does what it tells you it will create a simple program to do the changes in your database.
If you look at the code you can easily find the line that does what you want.
(But since I'm a newbie at this I'm not sure that it's axactly what you want but you could check it out and see if it what's you want.)

[This message has been edited by Tiger Claw (edited 01-12-2000).]

if you are using the standard DAO data control, you can use this:

Code:

---

Private Sub Data1_Reposition()
    With Data1
        .Caption = "Record " & _
.Recordset.AbsolutePosition & " of " & _
.Recordset.RecordCount
    End With
End Sub

---