Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles bt_save.Click
 
  myBindinSource.EndEdit()
  Dim row As DataRow = CType( myBindinSource.Currend, DataRowView).Row
  row("per_guid") = Guid.NewGuid()
 
  Dim adapter As New SqlCeDataAdapter("Select * from T_Per010", _
    connectionString)
 
  Dim cb as New SqlCeCommandBuilder(adapter)
  adapter.Update(personenTable)
 
End Sub