VB 6.0 ,Serial Number in data report

I have created an application in VB 6.0 with database MS Access.
I am using data report to retrieve and display the data as a report.
And it is working fine.
But , how can I add a serial number in each row of the report?

My coding for displaying data report is as follows

=========On Error Resume Next
DataReport4.Orientation = rptOrientLandscape
Set rs = New ADODB.Recordset
rs.Open "SELECT * From data where division='" + div_combo.Text + "'", cn
Set DataReport4.DataSource = rs.DataSource
For Each obj In DataReport4.Sections("Section1").Controls
If TypeOf obj Is RptTextBox Then
obj.DataMember = rs.DataMember
End If