Dim dbZeile As DataRow
		Dim cb As New OleDb.OleDbCommandBuilder(dbDataAdapter)
		dbZeile = dbDataSet.Tables("Adresse").NewRow
 
		txtNotizen.Text = ""
		dbZeile.Item("ID") = System.Guid.NewGuid().ToString()
 
		dbDataSet.Tables("Adresse").Rows.Add(dbZeile)
		dbDataAdapter.Update(dbDataSet, "Adresse")
 
		cm.Position = cm.List.Count - 1
		lblPos.Text = cm.List.Count & " von " & cm.List.Count

Dim cb As New OleDb.OleDbCommandBuilder(dbDataAdapter)
		With dbDataSet.Tables("Adresse").Rows(cm.Position)
			.Item("Vorname") = txtVorname.Text
			.Item("Name") = txtNachname.Text
			.Item("Strasse") = txtStrasse.Text
			.Item("PLZ") = txtPLZ.Text
			.Item("Ort") = txtOrt.Text
			.Item("Telefon") = txtTelefon.Text
			.Item("Fax") = txtFax.Text
			.Item("eMail") = txteMail.Text
			.Item("ICQ") = txtICQ.Text
			If txtNotizen.Text <> "" Then
				.Item("Notizen") = txtNotizen.Text
			End If
		End With
 
		dbDataAdapter.Update(dbDataSet, "Adresse")
		dbConnection.Close()
		dbConnection.Open()

Sprache: VB.NET 4.0
Entwicklungsumgebung: VS 2010
Betriebssystem: Windows 7