Send Outlook meeting invitation via email using VBA

Private Sub cmdInvite_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String
Dim numRecs As Integer
 
'This code gets the email addresses of all the selected attendees
 
Set db = CurrentDb
sql = "SELECT [E-mail Address] As EmailId From tblEmp Where [E-mail Address] Is Not Null AND (EmpId = "
 
    For i = 0 To Me.Attendees.ListCount - 1
        sql = sql & Me.Attendees.ItemData(i) & " OR EmpId = "
    Next i
    sql = Left(sql, (Len(sql) - 12))
    sql = sql & ");"
    
Set rs = db.OpenRecordset(sql)
numRecs = rs.RecordCount
If numRecs < 1 Then
    MsgBox "There are no selected attendees. Please select at least one attendee to receive the invitation."
    Exit Sub
End If
 
'This code creates the Outlook appointment and sends the invitation to the attendees
 
Dim olApp As Object
Dim olAppt As Object
Dim olRecip As Object
Dim oSubj As String
Dim oLocation As String
Dim tmStart As Date
Dim tmEnd As Date
Dim dtAppt As Date
Dim rs2 As DAO.Recordset
Dim sql2 As String
sql2 = "SELECT Title from tblTrn where TrnId = " & Me.TrnID
Set rs2 = db.OpenRecordset(sql2)
 
Const olAppointmentItem As Long = 1
Const olRequired As Long = 1
Const olMeeting As Long = 1
 
oSubj = rs2!Title & " Training"
oLocation = Me.Location
tmStart = Me.Start_Time
tmEnd = Me.End_Time
dtAppt = Me.EvtDate
 
Set olApp = CreateObject("Outlook.Application")
Set olAppt = olApp.CreateItem(olAppointmentItem)
With olAppt
    .MeetingStatus = olMeeting
    .Subject = oSubj
    .Location = Nz(oLocation, "TBD")
    .start = dtAppt & " " & tmStart
    .End = dtAppt & " " & tmEnd
    .ReminderSet = True
    .ReminderMinutesBeforeStart = 120
    .Importance = Outlook.OlImportance.olImportanceHigh
    rs.MoveFirst
    Set olRecip = .recipients.Add(rs!EmailId)
    olRecip.Type = olRequired
    Do While Not rs.EOF
        rs.MoveNext
        If Not rs.EOF Then
            Set olRecip = .recipients.Add(rs!EmailId)
            olRecip.Type = olRequired
        End If
    Loop
    .Send
End With
End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73: