Empty records filling Mailing label space

I am trying to create a filter for mailing labels. My form filter works, and opens the report, however there are spaces inbetween labels. How do I delete those blank spaces. I have a total of five tables these are working off of. One table has property information. The other four are split into land types. I have the labels set up, and the form filter. I have five combo boxes and four cmd buttons(directing to each one of the four land type reports)
using the following code

Function BuildSQLString(strSQL As String) As Boolean
Dim strSELECT As String, strFROM As String, strWHERE As String, strTYPE As String, intNum As Integer

strSELECT = "*"
strFROM = "Parcel"
strWHERE = ""
If IsNull(label4) Then
strWHERE = strWHERE
Else
strWHERE = strWHERE & " And State = '" & label4 & "'"
End If

strSQL = "SELECT " & strSELECT
strSQL = strSQL & "FROM " & strFROM
If strWHERE <> "" Then strSQL = strSQL & " WHERE " & Mid$(strWHERE, 6)
BuildSQLString = True

End Function

Private Sub LabelsRes_Click()
On Error GoTo Err_Handler

Dim strSQL As String
Dim strRptName As String

strRptName = "Labels PrivateLandOwner"

If Not BuildSQLString(strSQL) Then
MsgBox "There was a problem building the search string."
Exit Sub
End If
CurrentDb.QueryDefs("qryResidentalLabels").SQL = strSQL
RefreshDatabaseWindow
DoCmd.OpenReport strRptName, acViewPreview
DoCmd.Close acForm, "MailingLabels"
Exit_Handler:
Exit Sub
Err_Handler:
MsgBox Err.DESCRIPTION & Err.Number
Resume Exit_Handler
End Sub

With a blank query with the main table, I attempted to add a is not null but It won't stay in the field because of my code. The labels themself are pulling address' off one of the other 4 tables.

How do I get rid of this wasted space on my labels. Any help would be appreciated. Thanks

The may or may not help, I just remembered that I had it saved in my archives. Don't know who wrote it, but it was not me.


Regards,


John A