inputbox ile veri güncelleme

Merhabalar, çalışmamdaki form1 deki cntr (metin10) sütununa çift tıklayınca inputbox açılıyor ve cntr sayısını giriyorum. Amacım tablo1 deki ilgili satırın cntr sayısını güncellemek. Ancak bir türlü beceremedim. Çift tıklanınca olayında birşeyler yapma çalıştım, Yardım edebilirmisiniz.

Çift tıklama olayının kodunu aşağıdaki ile değiştirin istediğiniz şekilde çalışacaktır.
Kolay Gelsin.

Private Sub Metin10_DblClick(Cancel As Integer)

On Error Resume Next

Dim contr As Integer

contr = InputBox("Cntr Sayısını Giriniz", "Cntr Güncelleme")

 DoCmd.SetWarnings False

 Dim Sql As String

    Sql = "UPDATE Tablo1 SET Tablo1.cntr ='" & contr & "' WHERE  Tablo1.id =" & Me.id

        DoCmd.RunSQL SQL

        Me.Refresh

        DoCmd.SetWarnings True

End Sub

Çok teşekürrler, sağolun.