Run-Time error 13

Hej alle eksperter

Jeg sidder med et modul, som fjerner/tilslutter muligheden for at holde shift nede når en database starter op.

Men jeg får en fejl hele tiden (se titel), Koden har virket, men jeg har fået ny maskine og ny installation. Kan det være referencer som mangler og hvilken ?

Her er min kode ihvertilfælde, findes der andre metoder for at fravælge shift ved opstart af database ??

Function SkiftEgenskab(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Database, prp As Property
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Skift_Err
    dbs.Properties(strPropName) = varPropValue
    SkiftEgenskab = True

Skift_Bye:
    Exit Function

Skift_Err:
    If Err = conPropNotFoundError Then  ' Egenskaben blev ikke fundet.
        Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Ukendt fejl.
        SkiftEgenskab = False
        Resume Skift_Bye
    End If
End Function

Function Virker()
    SkiftEgenskab "AllowBypassKey", dbBoolean, True
End Function

Function VirkerIkke()
    SkiftEgenskab "AllowBypassKey", dbBoolean, False
End Function




På forhånd tak!