Visual Basic - PROBLEMA CON UPDATE PLEASE

Hola colega, tengo un gran problema ya que necesito que cuando el usuario haga la consulta y me muestra el registro, sea actualizado el status del registro para confirmar que existe. Todos los status se encuentran en 0 pero al encontrarse en la data cuando el usuario la visualize tiene que cambiar su status a 1, tengo el siguiente codigo que coloco despues de que me visualiza la informacion pero no me ejecuta el Update.. Cual puede ser el problema amigo???? Gracias de antemano
Dim Cmd As New ADODB.Command
Cmd.ActiveConnection = SCN
Cmd.CommandTimeout = 0
Cmd.CommandType = adCmdText
Cmd.CommandText = "update sobre1 set status = 1 where nro_cuaderno=" & txtnosobre.Text & ""
Cmd.Execute

Utiliza tu variable de conexion en este caso supongo que es esta:
SCN.Execute "update sobre1 set status = 1 where nro_cuaderno=" & txtnosobre.Text & ""

Espero y te funcione!!!