Show Record Number in label

In ADO (on VB6) what is the code to display the current record number in the recordset in a label? I'm creating something similar to the Data Control and
I want the record number to show as the user moves thru records. Thanks