Allen, I don't seem to know what I'm doing here, can you please take a look
at the mess I have and help me figure this out.  Thanks!

Private Sub ok_Click()
   Dim strReport As String     'Name of report to open.
   Dim strField As String      'Name of your date field.
   Dim strWhere1 As String      'Where condition for OpenReport.
   Const conDateFormat = "\#mm\/dd\/yyyy\#"
   
   strReport = "rptEmployeeData"
   strField = "dateactive"

   If IsNull(Me.txtStartDate) Then
       If Not IsNull(Me.txtEndDate) Then   'End date, but no start.
           strWhere1 = strField & " <= " & Format(Me.txtEndDate,
conDateFormat)
       End If
   Else
       If IsNull(Me.txtEndDate) Then       'Start date, but no End.
           strWhere1 = strField & " >= " & Format(Me.txtStartDate,
conDateFormat)
       Else                                'Both start and end dates.
           strWhere1 = strField & " Between " & Format(Me.txtStartDate,
conDateFormat) _
               & " And " & Format(Me.txtEndDate, conDateFormat)
       End If
   End If
   DoCmd.Requery
   ' Debug.Print strWhere                  'For debugging purposes only.
   DoCmd.OpenReport strReport, acViewPreview, , strWhere1
On Error GoTo Err_Handler
   'Purpose:  Open the report filtered to the items selected in the list box.
   'Author:   Allen J Browne, 2004.   http://allenbrowne.com
   Dim varItem As Variant      'Selected items
   Dim strWhere As String      'String to use as WhereCondition
   Dim strDescrip As String    'Description of WhereCondition
   Dim lngLen As Long          'Length of string
   Dim strDelim As String      'Delimiter for this field type.
   Dim strDoc As String        'Name of report to open.
   strWhere3 = strWhere & " AND " & strWhere2
   'strDelim = """"            'Delimiter appropriate to field type. See
note 1.
   strDoc = "rptEmployeeData"

   'Loop through the ItemsSelected in the list box.
   With Me.List28
       For Each varItem In .ItemsSelected
           If Not IsNull(varItem) Then
               'Build up the filter from the bound column (hidden).
               strWhere = strWhere & strDelim & .ItemData(varItem) &
strDelim & ","
               'Build up the description from the text in the visible
column. See note 2.
               strDescrip = strDescrip & """" & .Column(1, varItem) & """, "
           End If
       Next
   End With
   
   'Remove trailing comma. Add field name, IN operator, and brackets.
   lngLen = Len(strWhere) - 1
   If lngLen > 0 Then
       strWhere2 = "[companyno] IN (" & Left$(strWhere, lngLen) & ")"
       lngLen = Len(strDescrip) - 2
       If lngLen > 0 Then
           strDescrip = "Categories: " & Left$(strDescrip, lngLen)
       End If
   End If
   
   'Report will not filter if open, so close it. For Access 97, see note 3.
   If CurrentProject.AllReports(strDoc).IsLoaded Then
       DoCmd.Close acReport, strDoc
   End If
   
   'Omit the last argument for Access 2000 and earlier. See note 4.
   DoCmd.OpenReport strDoc, acViewPreview, WhereCondition:=strWhere3,
OpenArgs:=strDescrip

   Exit Sub

Err_Handler:
   If Err.Number <> 2501 Then  'Ignore "Report cancelled" error.
       MsgBox "Error " & Err.Number & " - " & Err.Description, , "ok_Click"
   End If
 
End Sub