\"Dim db As DATABASE\" fejl

Jeg laver en database, hvor der skal være mulighed for at ændre CPR nummer, som er nøglefeltet i \"tabel1\". Der er andre tabeller relaterede til \"tabel1\" med \"CPR\"-feltet som link.
Jeg vil derfor gøre det ved at tilføje en ny post til \"tabel1\", ændre CPR nummer i de relaterede poster fra de andre tabeller, og derefter slette posten med det gamle CPR nummer i \"tabel1!

Jeg åbner først formularen \"f_changecpr\" med felterne \"CPRgammel\", \"Fornavn\", \"Efternavn\" og \"CPRny\", og bruger funktionen
RecordsetVar.AddNew,  men er løbet ind i det problem at jeg ikke kan få lov til at definere \"Dim db As DATABASE\"
Jeg får fejlmeddelelsen \"User type not defined\"

ER der nogen som kan hjælpe?

Hele koden ses herunder

Private Sub Kommandoknap8_Click()
Dim db As DATABASE
Dim rs As Recordset

Set db = opendatabase(\"mindatabase.mdb\")
Set rs = db.openrecordset(\"tabel1\")

With rs
  .AddNew
  !CPR = \"forms![f_cprchange]![cprny]\"
  !Fornavn = \"forms![f_cprchange]![fornavn]\"
  !Efternavn = \"forms![f_cprchange]![efternavn]\"
  rs.Update
End With
End Sub