Try
            If objAdapter.UpdateCommand Is Nothing Then
                Dim objCommand As New OleDb.OleDbCommand("UPDATE [testSheet1$]" & _
                  "SET Col1 = ?, Col2 = ?, Col3 = ?  WHERE Id = ?", _
                  objConnection)
                objCommand.Parameters.Add("col1", OleDbType.Char, _
                255).SourceColumn = "Col1"
                objCommand.Parameters.Add("col2", OleDbType.Char, _
                255).SourceColumn = "Col2"
                objCommand.Parameters.Add("col3", OleDbType.Char, _
                255).SourceColumn = "Col3"
                objCommand.Parameters.Add("id", OleDbType.Char, _
                255).SourceColumn = "Id"
                objAdapter.UpdateCommand = objCommand
            End If
            objAdapter.Update(objDataSet)
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist