Function marked as restricted or uses a type not supported in Visual B

[bonusgeezer]

i am getting this

Function marked as restricted or uses a type not supported in Visual Basic

and it highlights CurrentDb function
but i have had it in other places aswell on the same pc mind,

it's on one of five pc's, and i damned if i can find out what's going on. I have the same references and vba version and everything....... help me please

thx in advance