SELECT DISTINCT [Households].[zip], [Visits].[visit_month], [Visits].[visit_year] FROM Households INNER JOIN Visits ON [Households].[ID]=[Visits].[Household_ID] WHERE Visits.weekofmonthly>0 And Visits.monthly;

Private Sub doreportwithparams()

Private Sub domonthlyreport()
    Dim strReport As String, strQuery As String, strWhere As String
    
    strQuery = "SELECT DISTINCT Households.zip " _
             & "FROM Households " _
             & "INNER JOIN Visits " _
             & "ON Households.ID=Visits.Household_ID " _

    strReport = "Monthly Report"
    strQuery = "SELECT DISTINCT Households.zip " _
             & "FROM Households, visits

SELECT DISTINCT Households.zip 
FROM Households, visits 
WHERE Households.ID=Visits.household_id 
AND Visits.visit_month=6 
AND Visits.visit_year=2019 
AND Visits.monthly=-1 
AND Visits.weekofmonthly>0 
ORDER BY households.zip