Rettelse af funsktion via. formular

Hej alle,

Jeg har følgende funktionskode:

Public Function fhpCategorizeGNM() As Integer
On Error GoTo Error_fhpCategorizeGNM
  Dim rst As New ADODB.Recordset
  Dim intRecord As Integer
 
  strSQL = "SELECT * FROM Mellemtabel_Gennemløb ORDER BY Omvendt_sortering"
  rst.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockOptimistic
 
  intRecord = 0
  While Not rst.EOF
    intRecord = intRecord + 1
    Select Case intRecord
      Case 1 To 275
        rst!Lokation = "Gennemløb"
      Case Else
        rst!Lokation = "Hyldelokation"
    End Select
    rst.Update
    rst.MoveNext
  Wend
 
  rst.Close
  Set rst = Nothing

Exit_fhpCategorizeGNM:
  Exit Function


- Jeg vil gerne lavet en formular, så man let og brugervenligt, kan gå ind og rette 275 (kontekst: Case 1 To 275) til en andet tal.

Kan dette uden videre lade sig gøre, eller skal man forbi en tabel, hvor man retter tallet, hvorefter funktionen henter data derfra i stedet?

Vh :)