Problemas con el update

[natyvydaddd]

Hola a todos nuevamente molestandolos para ver si alguien me podria ayudar lo que pasa es que estoy actualizando un base de datos con el comando update (por cierto me encuento trabajando con visual basic con una aplicación ASP), cuando la aplico me actualiza todos los registro de la base se datos y yo solo deseo que se me actualice uno. La instuccion la estoy poniendo de la menra siguiente:

q = "update ad_dereapoyo set parpre=?,recurs=?,descri=?,unimed=?,cantid=?,valre c=?"
Dim orden As OleDbCommand
Dim conexion As New OleDbConnection("provider=vfpoledb.1;data source=C:\Req_dpts;")
orden = New OleDbCommand(q, conexion)
orden.Parameters.Add(New OleDbParameter("@partida", OleDbType.Integer))
orden.Parameters.Add(New OleDbParameter("@recurso", OleDbType.Integer))
orden.Parameters.Add(New OleDbParameter("@descripcion", OleDbType.VarChar, 50))
orden.Parameters.Add(New OleDbParameter("@unimed", OleDbType.VarChar, 4))
orden.Parameters.Add(New OleDbParameter("@cantidad", OleDbType.Integer))
orden.Parameters.Add(New OleDbParameter("@costo", OleDbType.Integer))

leyendo en algunos tutoriales me di cuenta que tenia que utilizar un where, pero el utilizarlo me marco errores, quedo asi:

q = "update ad_dereapoyo set parpre=?,recurs=?,descri=?,unimed=?,cantid=?,valre c=? where parpre=@partida"

Les agradeceria si me pudiesen ayudar, nos seguimos escribiendo.