Introduzir valor na tabela

Boas a todos.

Eu gostava na minha base de dados que ao seleccionar uma caixa de opção ele me escreve-se um certo valor na tabela mas não está a acontecer.Portanto em :

Ao apertar o mouse tenho:

Private Sub Opção180_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

On Error Resume Next
Dim strSQL As String

DoCmd.SetWarnings False
strSQL = "UPDATE T_reserva SET custodareserva = 125 "

CurrentDb.Execute strSQL
DoCmd.SetWarnings True

End Sub


O que será que tenho mal?
Abraço

Bom dia.
O form onde está este controle "custodareserva" está acoplado á alguma tabela?

Se sim, coloque o código na Opção180 assim:

Me.custodareserva = 125

Sim este form está acoplado à tabela t_reserva.

O que quero é quando carrego na (opção180) ele colocaria o valor 125 na tabela(T_reserva) na coluna (custodareserva).

Já tentei colocar o código que você me mandou mas da erro.

É amigo, acho que você vai ter que postar um exemplo disso pra agente poder te ajudar.