Программная прокрутка DataGrid

[Чудик]

Код: Выделить всё

Dim dr As DataRow

For Each dr In objDataTable.Tables(0).Rows
       i = i + 1
Next
DataGrid1.CurrentRowIndex()=i-1


Делаю так, а можно ли проще?

[GSerg]

objDataTable.Tables(0).Rows.Count

[Чудик]

Спасибо.