Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles bt_save.Click
 
 
 
        Dim dt As New DataTable()
        Dim adapter As New SqlCeDataAdapter("Select * from T_Per010", _
          ceconn_open)
 
        adapter.Fill(dt)
 
        Dim row As DataRow = dt.NewRow
        row!per_guid = Guid.NewGuid
        row!per_Name = Me.f_name.Text
        row!per_vname = Me.f_vname.Text
        row!per_kuname = Me.f_kuname.Text
        row!per_strasse = Me.F_strasse.Text
        row!per_strassezusatz = Me.F_strasse2.Text
        row!per_land = Me.F_Land.Text
        row!per_plz = Me.F_PLZ.Text
 
 
 
        dt.Rows.Add(row)
 
 
        Dim cb As SqlCeCommandBuilder
 
        cb = New SqlCeCommandBuilder(adapter)
        adapter.Update(dt)
 
 
        'DG01 aktualisieren
        Dim sqlstring As String
 
        sqlstring = "select per_name as Name, per_vname as Vorname, per_kuname" & _
          "as Kurzname, per_PLZ as PLZ, per_Ort as Ort, per_gebtag as" & _
          "Geburtstag, per_frq as FRQ from T_per010"
 
        Dim DT1 As DataTable = fct_Rohtabelle("dt01", sqlstring)
 
        F_PersListe.DG01.DataSource = DT1
 
 
 
 
 
    End Sub