Datagrid Column 1

[dvannoy]

I am trying to auto populate a field in a datagrid based on the number of records returned..

Dim ID As Integer

ID = DataGrid.Columns(6).Text
ID = 1

rs.MoveFirst
Do Until Not rs.EOF
rs.MoveNext
ID = ID + 1
Loop

so it would display numbers down the side like Excel..

any help would be appreciated
Thanks

 

[nigz]

Dim ID As Integer

ID = 1

rs.MoveFirst

Do while Not rs.EOF
'If you want column 6 populated
DataGrid.Columns(6).Text = CStr(ID)
ID = ID + 1
rs.MoveNext
Loop