Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
conn.Open "DBQ=" & App.Path & ";Driver={Microsoft dBase Driver (*.dbf)}; FIL=dBase4.0"
Dim sSQL As String
sSQL = "SELECT [namefile] FROM FTPNEW WHERE [namefile] Not In (Select [namefile] FROM FTPOLD)"
rs.Open sSQL, conn, adOpenStatic, adLockOptimistic

SELECT [namefile] FROM FTPNEW

SELECT [FTPNEW].[namefile] 
FROM 
    [FTPNEW] LEFT OUTER JOIN [FTPOLD] 
         ON [FTPNEW].[namefile] = [FTPOLD].[namefile]
WHERE 
    [FTPOLD].[namefile] IS NULL

SELECT [namefile] 
FROM FTPNEW 
WHERE NOT [namefile] IN (
Select [namefile] FROM FTPOLD GROUP BY [namefile]
)

Public Function CreateDBFTemplate(sDBFName As String) As Boolean
Dim sPath As String

'===== Путь к DBF
sPath = App.Path & "\"

If Dir(sPath & "\" & sDBFName & ".dbf") = "" Then
    Dim conn As New ADODB.Connection
    conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath & ";User ID=Admin;Password=;Extended Properties=dBase IV")

    '===== Создаем DBF
    conn.Execute "create table " & sDBFName & "(namefile char(128))"
    conn.Close

    Set conn = Nothing
    CreateDBFTemplate = True
Else
    CreateDBFTemplate = False
End If
End Function