Try
            cda.Fill(cds, "CValues")
        Catch ex As System.Exception
            MsgBox(ex.Message)
        End Try
        bs = New BindingSource(cds, "CValues")
        DataGr.DataSource = bs

 ' Update with DataAdapter
        If cb Is Nothing Then cb = New OleDb.OleDbCommandBuilder(cda)
        cda.Update(cds, "CValues")

Zitat:

Syntaxfehler in der Update-Anweisung