Here is my current Code. Is there no way to attach the query results to 'strtofield'
Private Sub bemail_Click()
On Error GoTo Err_bemail_click
'DoCmd.SendObject acSendNoObject, , , Me!txtemailaddress, , , , , True
Dim strToField As String
Dim strccField As String
Dim strSubject As String
Dim...