UPDATE ABSURDO

Hola foro:

No puedo actualizar una base de datos Access desde un dataset. El caso es
que me actualiza el primer campo del set (o sea campo1) pero el segundo no
lo hace

Ademas si utilizo el UPDATE como viene en la ayuda (con parentesis) ,o
sea :

UPDATE mitabla set (campo1= @MFecha, campo2 = @MFecha2) where campo0= @miID

me dice que el UPDATE esta mal (????)

Esta base de datos esta bien ya que si utilizo un solo set con cualquiera de
los dos campos me funciona

Aqui va el codigo basico que utilizo

Dim OleDbDataAdapter1 As New OleDb.OleDbDataAdapter()

Dim query1 As String = "select campo0,campo1,campo2,etc " + _

" from mitabla where codigo2='ID'"

Dim midataset2 As DataSet = New DataSet()

Dim midatarow As DataRow

oledbConnection.Open()

OleDbDataAdapter1.SelectCommand = New OleDb.OleDbCommand(query1,
oledbConnection)

OleDbDataAdapter1.SelectCommand.CommandType = CommandType.Text

OleDbDataAdapter1.UpdateCommand = New OleDb.OleDbCommand("UPDATE mitabla set
campo1= @MFecha, campo2 = @MFecha2 where campo0= @miID", oledbConnection)

OleDbDataAdapter1.UpdateCommand.CommandType = CommandType.Text

OleDbDataAdapter1.UpdateCommand.Parameters.Add("@MFecha", OleDbType.DBDate,
8, "campo1")

OleDbDataAdapter1.UpdateCommand.Parameters.Add("@MFecha2", OleDbType.DBDate,
8, "campo2")

OleDbDataAdapter1.UpdateCommand.Parameters.Add("@miID", OleDbType.Integer,
15, "campo0")

OleDbDataAdapter1.Fill(midataset2, "mitabla ")


Dim mfecha As Date

Dim mFecha2 As Date

Dim mnm As String

Dim miid As Integer

For Each midatarow In midataset2.Tables("mitabla ").Rows

miid=a un campoid de la fila

MFecha= unafecha

MFecha2= otrafecha


Next

OleDbDataAdapter1.Update(midataset2, "mitabla ")

oledbConnection.Close()



Saludos