SELECT Sheet2.Address FROM Sheet2, BlackList
WHERE (((Sheet2.Address) Not Like [BlackList].[Field1]))
GROUP BY Sheet2.Address;

Sub inBlackList()
    Dim lst() As String
    Dim lst2() As String
    Dim Cnt As Long
    Dim Cnt2 As Long
    
    Cnt = tbl2lst("BlackList", "field1", lst)
    Cnt2 = tbl2lst("Query2-result", "Address", lst2)
    
    Dim i As Long
    Dim j As Long
    
    CurrentDb.Execute ("DELETE * FROM tblInBlackListSub")
    For i =  1  To Cnt
        For j =  1  To Cnt2
            If lst2(j) Like lst(i) Then
                CurrentDb.Execute ("INSERT INTO tblInBlackListSub (Address) VALUES ('" & lst2(j) & "')")
            End If
        Next
    Next
End Sub

Function tbl2lst(tblName As String, fieldName As String, lstName() As String) As Long
    Dim rs As DAO.Recordset
    Dim i As Long
    Set rs = CurrentDb.OpenRecordset("SELECT [" & fieldName & "] FROM [" & tblName & "]")
    If rs.RecordCount >  0  Then
        rs.MoveLast
        rs.MoveFirst
        i =  1 
        ReDim lstName(rs.RecordCount)
        Do While Not rs.EOF
            lstName(i) = rs(fieldName)
            i = i +  1 
            rs.MoveNext
        Loop
    End If
    rs.Close
    tbl2lst = i -  1 
End Function

SELECT [Query2-result].Address INTO tblInBlackList
FROM BlackList, [Query2-result]
WHERE ((([Query2-result].Address) Like [BlackList].[Field1]));