Valor DataGrid en Label

tema enviado por MutantSoft en Visual Basic 6.0
tema iniciado el 28/03/2007

Tengo que pasar de 5 en 5 registros del datagrid a 5 label ,cuando llega al final se cuelga. Es por que pido ver registros que no hay.Eso lo entendemos.

Private Sub Command5_Click()

Label1=DataGrid1.Columns(0).Value

Adodc1.Recordset.MoveNext

Label2=DataGrid1.Columns(0).Value

Adodc1.Recordset.MoveNext

"ESTO ES PARA QUE SE ENTIENDA LO DE ARRIVA"

Label3=DataGrid1.Columns(0).Value

Adodc1.Recordset.MoveNext

Label4=DataGrid1.Columns(0).Value

Adodc1.Recordset.MoveNext

Label5=DataGrid1.Columns(0).Value

End Sub

Probé generando una variable con la cantidad de registros del ado que resta 5 valores a medida que aprieto el boton, si hay alguna forma más simple y la pueden contar GRACIAS