Dim da As System.Data.OleDb.OleDbDataAdapter
	 	Dim ds As System.Data.DataSet
		Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
			'// Daten holen
            Dim objConn As New OleDb.OleDbConnection( _
              "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\db.mdb;Persist" & _
              "Security Info=False")
            Dim cmd As New System.Data.OleDb.OleDbCommand("SELECT * FROM" & _
            "Users", objConn)
            ds = New System.Data.DataSet
            da = New System.Data.OleDb.OleDbDataAdapter (cmd.CommandText , _
              objConn)
            da.Fill(ds)
            Me.dataGrid1.DataSource = ds.Tables(0)
            Me.textBox1.DataBindings.Add("Text",me.ds.Tables(0),"Vorname")
            Me.textBox2.DataBindings.Add("Text",me.ds.Tables(0),"Nachname")
		End Sub
 
		Private Sub Button3Click(sender As System.Object, e As System.EventArgs)
			'// Update
			Dim cb As New OleDb.OleDbCommandBuilder(da)
			da.InsertCommand = cb.GetInsertCommand
			da.UpdateCommand = cb.GetUpdateCommand
			da.Update(ds)
		End Sub
 
		Private Sub Button2Click(sender As System.Object, e As System.EventArgs)
			'// HasChanges?
			Me.BindingContext(me.ds.Tables(0)).EndCurrentEdit '// !!!
			System.Windows.Forms.MessageBox.Show("Änderungen : " + _
  ds.HasChanges.ToString())
		End Sub