consulta

[neivan]

Nohace falta esa linea por q no tienes q definir ningun valor,lo has hecho directamente en la cadena

Ej:
"Select * from tabla where p=@p"
Aki tendrias q definir @p
"Select * fr0m tabla where p=" & ctyep(dr("respuesta1"),integer)
Aki no

Para ahorra codigo con ponerlo una vez al final valdria
Ya q segun entiendo utilizas radiobutons por q solo elegira una respuesta
declara el Dim UpdateCmd As String al principio,antes del primer if,luego simplemtente hace sla asignacion al UpdateCmd en cada if
y entendiendo q solo entrara en uno de ellos UpdateCmd tendra elvalor de una update,despues del utlimo end if haces la executenomquery...

Puedes tb hacer como dices pero es repetir mucho codigo