HAz pruebas de tu codigo haber donde puede estar el fallo
Pon un label de pruebas
En los if del boton ok por ejemplo pones q le asignen al label el valor de (Ctype(dr("Respuesta1"),Integer) haber si te devuelve lo que esperabas que deberia ser en primer termino el 0
Si te devuleve bien es q hasta aki todo esta bien y q no ahces bien la update
¿donde tienes el executenonquery ???
Creo q el problema esta ahi,q no ejecutas la update,solo la asignas a un string