Dim geburtstag = Convert.ToDateTime(ins_txt_Geburtstag.Text)
Dim Tessere_new = New Test2 With {.Vorname = ins_txt_Vorname.Text, _
                                  .Nachname = ins_txt_Nachname.Text, _
                                  .Geburtstag = geburtstag _}
db.Test2s.InsertOnSubmit(Tessere_new)
db.SubmitChanges()