Dim dt As New DataTable("MyTable")
Dim r As DataRow
 
dt.Columns.Add("Nachname")
dt.Columns.Add("Vorname")
dt.Columns.Add("Strasse")
' usw.
 
r = dt.NewRow()
 
r("Nachname") = "Meier"
r("Vorname") = "Hans"
r("Strasse") = "Musterstrasse"
' usw.
 
dt.Rows.Add (r)
 
Me.DataGrid1.DataSource = dt