Bueno, la verdad que el código que utilizas lo uso más a menudo cuando utilizo un bindingnavigator pero de no usar este actualizo la tabla de la siguiente manera:
Cita: Dim Cn as new sqlconnection, Cm as sqlcommand
Cn.connectionstring = “cadena de conexión”
cm.connection = cn
cn.open
cm.command = “UPDATE table SET campo = valor WHERE código = “ & valor
cm.executenonquery
cn.close