Createquerydef og accsendObject

Hey,
Jeg har lavet flg. script der skal køre fra to access tabeller. Der skal dannes en mail til hver employee hvor eleverne er tilknyttet denne.

Hvad gør jeg galt siden jeg får en fejl der siger at "method or datamember is not fount " udfor .createQuerydef ?

Private Sub Kommandoknap2_Click()
Dim clsSendObject As AccSendObject
Dim strMsg As String
Dim recE As DAO.Recordset
Dim recL As DAO.Recordset
Dim EmpID
Dim sqlE As String
Dim sqlL As String
Dim db As Database
Dim qdfElever As QueryDef
Dim vCount As Integer
'Lærer liste
sqlL = "SELECT * FROM [emps] "
Set db = CurrentDb()
Set recL = db.OpenRecordset(sqlL, dbOpenDynaset, dbReadOnly)
'Loop igennem RecL
With recL
    Do Until .EOF
        MsgBox "Prøve for lærernavn: " & recL.Fields("Navn") & " med Email: " & recL.Fields("email")
        Set EmpID = recL.Fields("EmployeeId")
            'Elevliste
            Set qdfElever = .CreateQueryDef("Elever", "SELECT * FROM [elever] where [employeeID] = " & EmpID)
            Set recE = db.OpenRecordset(Elever, dbOpenDynaset, dbReadOnly)
            Set clsSendObject = New AccSendObject
            clsSendObject.SendObject acSendQuery, Elever, accOutputXLS, _
                        recL.Fields("email"), , , "This is a test subject", strMsg, True
            Set clsSendObject = Nothing
            .QueryDefs.Delete qdfElever.Name
            .MoveNext
    Loop
    .Close
End With
Set recL = Nothing
     
End Sub