Dim cm As CurrencyManager = CType(BindingContext(DataGrid1.DataSource), _
  CurrencyManager)
If (cm.Count > 0) Then
  Dim drv As DataRowView = CType(cm.List(DataGrid1.CurrentRowIndex), _
    DataRowView)
  Dim myRow As DataRow = drv.Row
  Dim Nummer as Integer = CInt(MyRow[0])
End If