Hola  todos:

Tengo el siguiente código de Access 2003 que no funciona en Access 2000
(lamebntablemente la BD ha de ser en 2000), el cual copio a continuación:

Function apEnableShift()
   On Error GoTo errEnableShift

   Dim db As Database
   Dim prop As Property
   Const conPropNotFound = 3270

   Set db = CurrentDb()
   db.Properties("AllowByPassKey") = True

Exit Function

errEnableShift:

   If Err = conPropNotFound Then
   Set prop = db.CreateProperty("AllowByPassKey", _
       dbBoolean, True)
       db.Properties.Append prop
       Resume Next
   Else
       MsgBox Err.Number & " / " & Err.Description, vbInformation +
vbOKOnly, "A V I S O"
       Exit Function
   End If

End Function

El problema parece ser que el A 2000 no reconoce el tipo de dato 'Database'

¿alguien sería tan amable de ofrecerme una solución para el Access 2000?.

Gracias a todos de antemano.