Kode fungere i ver. 2003 men ikke i 2007

Denne kode fungerede i ver. 2003 men nu virker den ikke i ver. 2007
er er der en der kan hjælpe.

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 Serier,Præmiergrupper,Klassenr,Fakturanr", dbOpenDynaset)
    Do Until rs.EOF
        n = n + 1
        rs.Edit
        rs!Burnummer = n
        rs.Update
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
   
End Function