access 2K VBA

den kan ikke dimme db as database why ??

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

   
    Do
      aText = split([rs!varetext BQ], "@@")
      rs.Edit
      rs!tekstlinie1 = aText(0)
      rs.Update
      rs.MoveNext
    Loop Until rs.EOF
    rs.Close
    Set rs = Nothing
 
 
    End Function