Kode der virker i XP men ikke i 2000?

Hej

Jeg har udviklet en database hvor jeg anvender en ganske almindelig filtrering. Filtreringen startes med F2 tasten hvorefter brugeren indtaster et filter. Det virker fint på XP, men giver en fejl på 2000. Koden til filtreringen ser således ud:

If KeyCode = 113 Then '113 svarer til F2
    Dim SeekStr As String
    CritVal = InputBox("Angiv dit søgekriterie:", "Filtrering af kunder", CritVal)
   
    SeekStr = "[navn] like '" & CritVal & "*'"
    Filter = SeekStr
    FilterOn = True


End If

Selve filtreringen bliver korrekt udført, men efterfølgende skal man kunne dobbeltklikke på et felt, hvorefter posten indlæses. Det er her fejlen opstår. Selve opstarten ser således ud (standard access):

Private Sub Navn_DblClick(Cancel As Integer)
On Error GoTo Err_navn_dblClick

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "fKunde"
   
    stLinkCriteria = "[KundeNr]=" & Me![Kundenr]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_navn_dblClick:
    Exit Sub

Err_navn_dblClick:
    MsgBox Err.Description
    Resume Exit_navn_dblClick
End Sub

Og som sagt, denne kode virker fint, hvis der blot ikke er foretaget filtreringen.

Er der nogen der kan hjælpe??

Hilsen Torben