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 bno 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.