Dim SpalteA As New DataGridTextBoxColumn
Dim ts4 As DataGridTableStyle = New DataGridTableStyle
ts4.MappingName = myTable
 
With SpalteA
     .MappingName = "Preis"
     .HeaderText = "VK-Preis"
     .NullText = "" 
     .Width = "75"
     .Alignment = HorizontalAlignment.Right
End With
 
ts4.GridColumnStyles.Add(SpalteA)
DataGrid1.TableStyles.Add(ts4)