Dim r As DataRow = t.NewRow
        r("id") = 1
        r("vorname") = "peter"
        r("nachname") = "lustig"
        t.Rows.Add(r)
 
        r = t.NewRow
        r("id") = 2
        r("vorname") = "hans"
        r("nachname") = "meier"
        t.Rows.Add(r)
 
        r = t.NewRow
        r("id") = 3
        r("vorname") = "klaus"
        r("nachname") = "müller"
        t.Rows.Add(r)