Hent værdi i tabel

Jeg mangler det rigtige tegn, så min intsvar bliver plussed med min værdi i Tabel1 med felted nr .
Kun danske svar. Databasen kan sendes. Se ex:

Dim intSvar As Integer
    intSvar = InputBox("Indtast dit Password", "Indtast et tal")
    'Select Case intSvar + 1234    'Virker
   
    Select Case intSvar + (Tabel1.Nr)
   
    Case Is = 3000
        MsgBox "Tallet er sammenlagt"
    Case Else
        MsgBox "Else"
End Select

På forhånd tak. MVH Henrik13