generating serial no upon datareport

[firoz ahmed]

can anybody tell me how should i generate serial no in datareport
i have written a code for retrieving rows from a table .
but i want it should generate sr no also .
suppose

SRNO PRODUCTNAME qty unit
1 lenova lapto 10 pcs
2 IBM LAPTOP 20 "
3 ACCR LAPTOP 50
4 TOSIBA LAPTOP 10

kindly help me

 
Private Sub Command4_Click()
Dim mr As Integer
mr = InputBox("enter a mr no")
Set rs = New ADODB.Recordset
rs.Open "select * from MR where req_no = " & CStr(mr), con, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
With DataReport2.Sections("section1").Controls
.Item("text1").DataField = rs.Fields("productname").Name
.Item("text2").DataField = rs.Fields("qty").Name
.Item("text3").DataField = rs.Fields("unit").Name
 
End With
Set DataReport2.DataSource = rs
DataReport2.Orientation = rptOrientLandscape
DataReport2.Refresh
DataReport2.Show vbModeless
End If
End Sub
 

[Frinavale]

You need to create a mathematical algorithm to create a serial number.
See what wikipedia has to suggest about serial number arithmetic.

[debasisdas]

if you are using oracle as your database, can use rownum as serial number

[firoz ahmed]

Sir i am using MS ACCESS 2003 As a database .