Private Sub DataGrid2Word()
Dim _row as Datarow
Dim _wordTable as DataTable = new DataTable
Dim _preis as String
 
    _wordTable = ctype(myDataGrid.DataSource, DataTable) 'Konvertierung
 
   if _wordTable.rows.Count > 0 then
      for each _row in _wordTable.rows
              _preis = FormatNumber(_row("preisspalte"), 2, _
                TriState.UseDefault, TriState.False, TriState.UseDefault)
             msgbox(_preis.tostring)
      next   
end if
 
End Sub