Problema con sentencia UPDATE

[malpika23]

Hola, soy un viejo programador de Visual Basic 6 que despues de muchos años he retornado usando Visual Basic 2010.
Despues de usar sentencias SQL de tipo Select o Delete no he tenido ningun problema pero al usar el UPDATE me da error a la hora de ejecutar.
Aqui pongo la parte del codigo donde está el error:

Dim oconn As New OleDbConnection

Dim ocomn As New OleDbCommand

Dim odata As OleDbDataReader

oconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + System.AppDomain.CurrentDomain.BaseDirectory + "\usuarios.accdb"

oconn.Open()

ocomn.CommandText = "UPDATE Users SET User='" & TextBox1.Text & "',Pass='" & TextBox2.Text & "' WHERE User='" & login & "'"
ocomn.Connection = oconn

odata = ocomn.ExecuteReader()

Es una simple tabla con usuario y contraseña y lo que quiero es modificar los datos que escriba en el text1 y el text2. La variable login es de tipo string y guarda el usuario original que deseo modificar.

Agradecería cualquier tipo de ayuda. Muchas gracias y un saludo!