Dim db as database fejl ( access 2K)

den kan ikke dimme db as database i access 2K, hvorfor ??

Public Function SplitFelt()
    Dim aText
    Dim rs As Recordset
    Dim db As Database
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Ny_Master_02072003", dbOpenDynaset)