Simple Problem I Hope, Please Help

:eek:

--------------------------------------------------------------------------------

I have made a reasonably simple database, for some reason I am struggling to send of reports by Emails.

The piece of code I am using is:

Private Sub cmdEMailRptPastNonCon_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "frmSwitchboard", acNormal

On Error GoTo Err_cmdEMailRptPastNonCon_Click
Dim stDocName As String

stDocName = "rptPastNonCon"
DoCmd.SendObject acReport, stDocName

Exit_cmdEMailRptPastNonCon_Click:
Exit Sub

Err_cmdEMailRptPastNonCon_Click:
MsgBox Err.Description
Resume Exit_cmdEMailRptPastNonCon_Click
End Sub


A box appears with the options [rich text,html,snapshot etc] I choose an option and a message box appears saying: "The database engine could not lock "tblMain" because it is already in use by another person or process., I know this is probably a simple stupid error ive made but being a complete beginner I am stuck, any ideas of where I should look to find any errors?

Thanks for any help recieved.

Mat