WindowsフォームのDataGridで表示されているレコード数をカウントする

実際に表示されているレコード数。
０からではなく、１からカウントする。

Dim count As Integer
count = DataGrid1.BindingContext(DataGrid1.DataSource, DataGrid1.DataMember).Count