Add CC and Signature to Email

[LClayton1997]

I found code here (thank you) to get my email to load query results to specific emails.

I just need to add a CC email and the signature at the bottom of the email.
I have tried several things and it all results in either I get the query data without signature or I get the signature.
So I'm asking for help. I am not a programmer.

Here is the code:

Option Compare Database
Option Explicit
 
Public Function EmailCostNeeded()
Dim OlApp As Object
Dim OlMail As Object
Dim signature As String
Dim olMailItem As Integer
Dim db As DAO.Database
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
Dim strBody As String
Dim strSQL As String
Set OlApp = CreateObject("Outlook.Application")
Set db = CurrentDb
 
'rst1 is the distinct email addresses
Set rst1 = db.OpenRecordset("q_email_distinct", dbOpenDynaset)
If Not rst1.RecordCount = 0 Then
    rst1.MoveFirst
    Do While Not rst1.EOF
        Set OlMail = OlApp.CreateItem(olMailItem)
        OlMail.To = rst1!contact
        OlMail.Subject = "Cost Sheets Needed"
        strBody = "Cost Sheets are needed for the following Product IDs. " & vbCrLf & _
        "Thank You" & signature & vbCrLf & vbCrLf & _
        "Account Corp   DIV       PRODID              Vendor" & vbCrLf
 
strSQL = "SELECT * FROM q_us_stdcost_needed WHERE [contact] = '" & rst1![contact] & "'"
 
Set rst2 = db.OpenRecordset(strSQL, dbOpenDynaset)
 
If Not rst2.RecordCount = 0 Then
    rst2.MoveFirst
    Do While Not rst2.EOF
    strBody = strBody & rst2![Account] & vbTab
    strBody = strBody & rst2![company] & vbTab
    strBody = strBody & rst2![Div] & vbTab
    strBody = strBody & rst2![Prod_Id] & vbTab
    strBody = strBody & rst2![Vendor_Short] & vbCrLf
    rst2.MoveNext
 
Loop
 
End If
 
rst2.Close
Set rst2 = Nothing
 
OlMail.body = strBody
OlMail.display
'Send your e-mail here - change OlMail.display to OlMail.send
rst1.MoveNext
Loop
End If
 
 
rst1.Close
db.Close
Set rst1 = Nothing
Set db = Nothing
End Function