Function OleDb_A(ByVal TabPage_String, ByVal DataGr)
        cda = New OleDb.OleDbDataAdapter("SELECT * FROM " & TabPage_String & "" & _
          "Order By id", con)
        Try
            cda.Fill(cds, TabPage_String)
        Catch ex As System.Exception
            MsgBox(ex.Message)
        End Try
        bs = New BindingSource(cds, TabPage_String)
        DataGr.DataSource = bs
    End Function

Private Sub Aktualisieren_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Aktualisieren.Click, Aktualisieren.Click
        ' Update with DataAdapter
        If cb Is Nothing Then cb = New OleDb.OleDbCommandBuilder(cda)
        cda.Update(cds, "Z1S2")
    End Sub

Zitat:

System.Data.OleDb.OleDbException wurde nicht behandelt. ErrorCode=-2147217904 Message="Für mindestens einen erforderlichen Parameter wurde kein Wert angegeben." Source="Microsoft JET Database Engine"