How would I modify the code below to show a label that states that there are no search results in the event this is true?<BR><BR>Private Sub Prev1_Click()<BR>Dim strSQL As String<BR> Dim qd As QueryDef<BR> <BR> strSQL = "SELECT tblBoxDetails.BoxItem, tblBox.BoxItem, tblBoxDetails.ID, tblBox.Category, tblBox.FinalPlacement," _<BR> & " tblBoxDetails.Room, tblBoxDetails.Contents, tblBoxDetails.Description, tblBoxDetails.SelectItem, tblBox.[PI/UB], tblBox.[PI/UB] AS PIUB" _<BR> & " FROM tblBox LEFT JOIN tblBoxDetails ON tblBox.ID = tblBoxDetails.ID"<BR><BR> If Not IsNull(Me![BoxItemSelect]) Then<BR> If Me![BoxItemSelect] &#060;&#062; "" Then<BR> strSQL = strSQL & " WHERE tblBoxDetails.BoxItem = " & Me![BoxItemSelect] & ""<BR> <BR> Else<BR> &#039;Show all records because no criteria was specified.<BR> strSQL = strSQL & " ORDER BY tblBoxDetails.ID"<BR> End If<BR> End If<BR> Me.SaveChanges.Visible = True<BR> Me.Delete.Visible = True<BR> Me.subQueryByForm.Form.RecordSource = strSQL<BR><BR> Me.subQueryByForm.Form.Requery<BR> Me.subQueryByForm.Form.Visible = True<BR>End Sub