Private Sub SpeichernDetails()
		Dim Anzahl As Integer
		Dim cb As SqlCommandBuilder
		Try
			'aktualisierung
			Me.BindingContext(dtRechnungDetail).EndCurrentEdit()
			Cnn.Open()
 
			cb = New SqlCommandBuilder(daRechnungDetail)
			With daRechnungDetail
				.InsertCommand = cb.GetInsertCommand
				.DeleteCommand = cb.GetDeleteCommand
				.UpdateCommand = cb.GetUpdateCommand
			End With
			Anzahl = Me.daRechnungDetail.Update(dtRechnungDetail)
			Cnn.Close()
			dtRechnungDetail.AcceptChanges()
 
			If Anzahl > 0 Then
				MsgBox("Tabelle wurde aktualisiert! / (Positionen: " & Format(Anzahl) & _
  ")", _
				MsgBoxStyle.Information, "Datensatzänderung")
			End If
		Catch ex As Exception
			MessageBox.Show(ex.Message, _
			"Datenänderung ist fehlgeschlagen", MessageBoxButtons.OK, _
			MessageBoxIcon.Information, MessageBoxDefaultButton.Button3)
		End Try
	End Sub