Problemer efter konvertering

Jeg har fået et problem efter at have konverteret min database fra Access 97 til 2000. Nedenstående kode virkede tidligere fint. Nu får jeg fejlmeddelelsen \"User-defined type not defined\" og \"Dim dbs As Database\" bliver markeret. Er der nogen der ved hvad det kan skyldes?

-----------------------------------------
Private Sub Email_Click()
On Error GoTo Err_Email_Click

Dim stAppName As String, StEmail As String, BCC As String, StBCC As String, x As Integer
stAppName = \"C:\\Program Files\\Microsoft Office\\Office\\OUTLOOK.EXE\"
   
Dim dbs As Database, rst As Recordset, a As Integer
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset(\"FS_Send_Email\")
    rst.MoveLast
    Debug.Print rst.RecordCount
    Set dbs = Nothing
    a = rst.RecordCount
   
StEmail = \"mig@selv.dk\"
BCC = Me![Emailadresse]
StBCC = BCC

For x = 1 To (a - 1)
DoCmd.GoToRecord acDataForm, \"FM_Udsendelse_Email\", acNext
BCC = Me![Emailadresse]
StBCC = BCC + \";\" + StBCC
Next x

DoCmd.SendObject , , acFormatRTF, StEmail, , StBCC, , , True
DoCmd.Close

Exit_Email_Click:
    Exit Sub

Err_Email_Click:
    MsgBox Err.Description
    Resume Exit_Email_Click
   
End Sub