Using mycon As New OleDbConnection(Con_String & db_name)
      mycon.Open()
      daArtikel.FillSchema(dtArtikel, SchemaType.Mapped)
      daArtikel.Fill(dtArtikel) 
      mycon.Close()
End Using

txtBezeichnung.DataBindings.Add("Text", dtArtikel, "Bezeichnung", False, _
  DataSourceUpdateMode.OnPropertyChanged)

Dg.DataSource = dtArtikel

Dim bm As BindingManagerBase
bm = Me.BindingContext(dtArtikel)

If dtArtikel.GetChanges Is Nothing Then
   MessageBox.Show("Nix geändert")
Else
   MessageBox.Show("Geändert")
End If

bm.EndCurrentEdit()

bm.CancelCurrentEdit