Funktion/makro virker ikke

Jeg har en database som jeg har brugt i flere år
men nu for jeg fejl når jeg vil køre en marko/funktion
(Compile error
User- defined type not defined)

og så lukker den Visual Basic op:

Option Compare Database

Public Function OpdatertmpFaktura_Under()
    Dim db As Database
    Dim rs As DAO.Recordset
    Dim n As Long
    DoCmd.SetWarnings False
    DoCmd.RunSQL "Delete From tmpFaktura_Under"
    DoCmd.OpenQuery "Faktura_Opret_tmpFaktura_Under"
    DoCmd.SetWarnings True
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Select * From tmpfaktura_under Order By [Sort_til overskrift], Sort_Grupper, Klasse, [Dkb Nummer], Fakturanr", dbOpenDynaset)
    Do Until rs.EOF
        n = n + 1
        rs.Edit
        rs!Burnummer = n
        rs.Update
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing

Den marker ( db As Database ) med blå

er der en der kan fortælle mig hvad der er forkert?
på forhånd tak