Private Sub update_status_display()
    Dim szTmp As String
    Dim szMessage As String

    PRINT_MODE = Form_CustomerPrint4UP.PRINT_MODE
    SINGLE_CUSTOMER_NUMBER = Form_CustomerPrint4UP.SINGLE_CUSTOMER_NUMBER

    On Error Resume Next
    szMessage = "Will print last 4 draws in new 4 UP Booklet for "
    cmdPrint.Enabled = True
    If PRINT_MODE = SINGLE_CUSTOMER Then
        szTmp = DLookup("[FirstName] & "" "" & [MiddleInitial] & "" "" & [LastName]", "Customers", "CustomerNumber=" & SINGLE_CUSTOMER_NUMBER)
        szMessage = szMessage & vbCrLf & szTmp
    ElseIf PRINT_MODE = SEARCH_RESULTS Then
        '//SELECT COUNT(*) AS cnt FROM (SELECT DISTINCT CustomerNumber FROM TempSearchTable);
        Dim rsCount As ADODB.Recordset
        Set rsCount = CreateNewADODBQuery("SELECT COUNT(*) AS cnt FROM (SELECT DISTINCT CustomerNumber FROM TempSearchTable);")
        szMessage = szMessage & rsCount("cnt") & " customers."
        chkCustomerReceipt.Enabled = False
        rsCount.Close
        rsCount = Nothing
    Else
        szMessage = "*** ERROR *** This form was opened in a wacky way and will not function!"
        cmdPrint.Enabled = False
    End If
    lblStatus = szMessage
    Form.Refresh
    Debug.Print "update_status_display " & lblStatus.Caption
End Sub