I'm attempting to send out emails via outlook using a filtered query. Here's what I have so far.

Private Sub Command14_Click()

On Error GoTo Err_Command14_Click
Dim SendString As String
Dim strSQL As String
Dim rstAttendance As New ADODB.Recordset



strSQL = "SELECT * FROM " & "qryAttendance " _
& "WHERE (type of conference='" & Forms!frmAttendanceSearchView.[Type of Conference] & "' and times attended >= " & Forms!frmAttendanceSearchView.[Times Attended] & ");"


'Open the Recordset to Customers
rstAttendance.ActiveConnection = Application.CurrentProject.Connection
rstAttendance.CursorType = adOpenKeyset
rstAttendance.Open strSQL


SendString = ""

If MsgBox("Send Email" & Chr(13) & _
"to all Contacts using Microsoft Outlook?", 4) = 6 Then

With rstAttendance


Do Until .EOF
' Create the Invoice report Filter used by the Report_Open
' event.

SendString = SendString & !PersonalEmail & ";"
.MoveNext
Loop

SendString = Left$(SendString, Len(SendString) - 2)


DoCmd.SendObject , "", "", [SendString], "", "", "", "", True, ""

End With
End If

rstAttendance.Close

Exit_Command14_Click:
Exit Sub

Err_Command14_Click:
MsgBox Err.Description
Resume Exit_Command14_Click

End Sub

Upon execution I run into the following error: "Method 'open' of object _'recordset' failed "


Why is this?