Dim cm As CurrencyManager = CType(dg.BindingContext(dg.DataSource, dg.DataMember), CurrencyManager)
Dim dv As DataView = CType(cm.List, DataView)
MessageBox.Show("Rows: " & dv.Count.ToString)
MessageBox.Show("Columns: " & dv.Table.Columns.Count.ToString)