datagrid的取值循环出问题，百分相赠，高手快来！！！

我需要实现的是在datagrid中从用户选定的一行取出连续40个单元格的值，然后在时间相隔5分钟处再连续取40个值，总共取7组，但是以下的循环有下列问题，内层j循环执行无错误，外层循环一运行总是该句
DataGrid1.Book = DataGrid1.Book + 1
提示书签无效，不知何故？高手帮帮忙，谢谢！
For i = 0 To 6
    For j = 0 To 39
         array1(i, j) = DataGrid1.Columns(3).CellText(DataGrid1.Book + j)
         Text1.Text = Text1.Text & vbCr & array1(i, j)
         selectime = CDate(DataGrid1.Columns(1).CellText(DataGrid1.Book))
    Next j
    
    Do
      DataGrid1.Book = DataGrid1.Book + 1
        addselectime = CDate(DataGrid1.Columns(1).CellText(DataGrid1.Book))
        If addselectime = selectime + CDate("00:05:00") Then
         Exit Do
        End If
    Loop
    Text2.Text = DataGrid1.Columns(2).CellText(DataGrid1.Book)
    Text3.Text = DataGrid1.Columns(3).CellText(DataGrid1.Book)
Next i