Zitat:

OleDBExeption wurde nicht behandelt. Syntaxfehler in UPDATE-Anweisung.

Public Class Form1
	Dim inc As Integer = 0
	Dim AnzahlSpalten As Integer = 0
	Dim AnzahlReihen As Integer = 0
 
	Dim DatenbankPfad As String = "h:\Coding\TestDaten\Tagesberichte.accdb"
 
	'Connection String
	Dim connetionString_Tagesberichte As String = _
  "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & DatenbankPfad
 
	'Connection Object
	Dim connection_Tagesberichte As New OleDb.OleDbConnection( _
  connetionString_Tagesberichte)
 
	'Data Adapter
	Dim DataAdapter_Tagesberichte As OleDb.OleDbDataAdapter
 
	'Dataset
	Dim ds As New DataSet("Tagesberichte")
 
	Dim sql_Tagesbericht_Kopf As String = "SELECT * FROM Tagesbericht_Kopf ORDER" & _
  "BY Datum ASC"
	Dim sql_Tagesbericht_Daten As String = "SELECT * FROM Tagesbericht_Daten ORDER" & _
"BY LfdNr_Daten ASC"
	Dim sql_Währungskürzel As String = "SELECT * FROM Währungskürzel ORDER BY" & _
"Währung ASC"
	Dim sql_SpesenStunden As String = "SELECT * FROM SpesenStunden ORDER BY ID ASC"
	Dim sql_Mitarbeiter As String = "SELECT * FROM Mitarbeiter ORDER BY" & _
  "MitarbeiterName ASC"
	Dim sql_Kategorie As String = "SELECT * FROM Kategorie ORDER BY Land ASC"
 
 
	Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
		cmdbtn_First.Enabled = False
		cmdbtn_Previus.Enabled = False
		cmdbtn_Next.Enabled = False
		cmdbtn_Last.Enabled = False
 
		Try
			connection_Tagesberichte.Open()
			DataAdapter_Tagesberichte = New OleDb.OleDbDataAdapter( _
  sql_Tagesbericht_Kopf, connection_Tagesberichte)
			DataAdapter_Tagesberichte.MissingSchemaAction = _
MissingSchemaAction.AddWithKey
			DataAdapter_Tagesberichte.Fill(ds, "myTagesbericht_Kopf")
			DataAdapter_Tagesberichte.SelectCommand.CommandText = sql_Tagesbericht_Daten
			DataAdapter_Tagesberichte.Fill(ds, "myTagesbericht_Daten")
			DataAdapter_Tagesberichte.SelectCommand.CommandText = sql_Währungskürzel
			DataAdapter_Tagesberichte.Fill(ds, "myWährungskürzel")
			DataAdapter_Tagesberichte.SelectCommand.CommandText = sql_SpesenStunden
			DataAdapter_Tagesberichte.Fill(ds, "mySpesenStunden")
			DataAdapter_Tagesberichte.SelectCommand.CommandText = sql_Mitarbeiter
			DataAdapter_Tagesberichte.Fill(ds, "myMitarbeiter")
			DataAdapter_Tagesberichte.SelectCommand.CommandText = sql_Kategorie
			DataAdapter_Tagesberichte.Fill(ds, "myKategorie")
			'DataAdapter_Tagesberichte.Dispose()
 
			connection_Tagesberichte.Close()
 
		Catch ex As Exception
			MsgBox("Kann die Verbindung nicht öffnen! ")
		End Try
 
	End Sub

	Private Sub cmdbtn_Update_Click(sender As Object, e As EventArgs) Handles _
  cmdbtn_Update.Click
 
		Dim cb As New OleDb.OleDbCommandBuilder(DataAdapter_Tagesberichte)
		DataAdapter_Tagesberichte.Update(ds, "myKategorie")
 
	End Sub