Email Problems - Crashes Access 2000

[roxannep]

Below is coade I'm using to send individual emails (recipient doesn't see everyone else's email in "to" field). Problem is it crashes Access 2000 after only one or two records are circulated through (the first record of the set). Any ideas .... perhaps I'm missing something in code. I was using this very successfully in '97, but it's been crashing since I moved it to Access 2000.

Private Sub cmdCustomerXmasEmail_Click()
Dim db As Database, rst As Recordset
Dim a As Integer, EmailInfo As String

Set db = CurrentDb()
Set rst = db.OpenRecordset("tblXmasEmail&quot

rst.MoveLast
rst.MoveFirst

For a = 1 To rst.RecordCount

EmailInfo = "Message here" & vbCrLf
EmailInfo = EmailInfo & vbCrLf
EmailInfo = EmailInfo & "Message Continued here" & vbCrLf
EmailInfo = EmailInfo & vbCrLf
EmailInfo = EmailInfo & "Thank you again for your business." & vbCrLf

DoCmd.SendObject acSendNoObject, " ", acFormatRTF, rst!EmailName, , , "Holiday Gift Certificate", EmailInfo, False, " "

rst.MoveNext
Next

DoCmd.Close

End Sub

 

[Guest_imported]

check to make sure DAO 3.6 is checked under references and dim as DAO.Database

 

[roxannep]

Tried that. No luck, crashed without even sending one email this time.

Any other suggestions?