VB Code:
Me.myDataAdapter.UpdateCommand = Me.OleDbUpdateCommand1
Me.OleDbUpdateCommand1.Connection = myConnection
Me.OleDbUpdateCommand1.CommandText = "UPDATE myTable SET myField= ? where (myField = ?)"
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("myField", System.Data.OleDb.OleDbType.VarWChar, 50, "myField"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_myField", System.Data.OleDb.OleDbType.VarWChar, 50, _
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "myField", System.Data.DataRowVersion.Original, Nothing))