Please Help: Adding Mailing Label Printing To Search Query/Email Program

Ok, I've run into two serious problems in testing, and another question that I'm hoping you guys can
help me solve. Below my questions is the code used for making the search query/email program.

Problem #1: In testing, this search program only is working for me for new data. Any data that I had
in the database prior to implimenting the program will not move past the search stage. In other words, I
will do a search, it will find the emails and bring them up in a box, I hit "OK" and it gets hung up and won't move on
to opening up a new Email with the addresses implemented. However if I enter new data in the database, say with a weird
name so its only bringing up the new entry and no old entry, it works fine and opens up the new email.

Problem #2: Items I would like to search like check boxes. Say I have a check box "Donor", this is listed in the database
as a 1 or 0. I can't have my boss searching 1 or 0. Is there a way to change this to, say, being recorded in the DB
as a Yes or No. That way he would check to search "Donor" and type Yes in the search box and this would search the DB
"Donor" column for "Yes" and bring up the results.

New Question: My boss and I reviewed the form as it is so far yesterday. He was asking if I could add a Print Labels option
in there. I'm wondering instead of adding another seperate search box and all that mess for a labels search print, can I rather
add two check boxes, one labeled "Print Labels" and the other labeled "Email". What this would do is depending on the check box
you selected it would either run the search and email like we have it, or clicking the other check box would run the search and print
labels.

Quote:
'Author: Michael Walts, but use it as you like'Important information! this code requires a reference to the Microsoft DAO object library
Option Compare Database
Option Explicit

Private Sub cmdEmail_Click()


'will hold the dynamic SQL query
Dim strSQL As String

'will hold the WHERE clause portion of our SQL query
Dim strWHERE As String

'will hold all the recipients of this message
Dim strRecipients As String

'the recordset we will use to get the emails of the records that match our criteria
Dim rst As DAO.Recordset

'if there is input in the search criteria, then we will run the query and send the e-mail
If txtSearch <> "" Then

'if you have more buttons, just add mosr cases (the value of the radio button
'= the Case number, so Value of the State radio button is 1, etc.)
Select Case opgSearch.Value

Case 1
strWHERE = "WHERE State = '" & txtSearch & "'"

Case 2
strWHERE = "WHERE City = '" & txtSearch & "'"
End Select

strSQL = "SELECT EMail FROM tblUser " & strWHERE

'run the query and get the results into the recordset
Set rst = CurrentDb.OpenRecordset(strSQL)

'Loop through the recordset and add all the EMails
Do While Not rst.EOF
strRecipients = strRecipients & ";" & rst!EMail
rst.MoveNext
Loop

'remove the first ; from the strRecipients
strRecipients = Right(strRecipients, Len(strRecipients) - 1)

MsgBox strRecipients
DoCmd.SendObject , , , , , strRecipients, "News Letter", txtBody, False

rst.CloseSet rst = Nothing
End If



End Sub

'stops a ' entered in the field from breaking the query
Private Function SQLSafe(safeMe As String) As String
SQLSafe = Replace(safeMe, "'", "''")
End Function