strConn = "DBQ=" & App.Path & ";Driver={Microsoft dBase Driver (*.dbf)}; FIL=dBase4.0"

strPath = "C:\MYPROG"
strConn = "DBQ=" & strPath & ";Driver={Microsoft dBase Driver (*.dbf)}; FIL=dBase4.0"

Sub Create()
  CreateDBFTemplate "FTPOLD"
  CreateDBFTemplate "FTPNEW"

  Dim conn As ADODB.Connection
  Set conn = New ADODB.Connection
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  Dim strConn As String
  Dim strPath As String
  strPath = "C:\MYPROG\"
  strConn = "DBQ=" & strPath & ";Driver={Microsoft dBase Driver (*.dbf)}; FIL=dBase4.0"
  conn.ConnectionString = strConn
  conn.Open conn.ConnectionString
  Dim sSQL As String
  sSQL = "SELECT namefile FROM FTPNEW WHERE namefile Not In (Select namefile FROM FTPOLD)"
  rs.Open sSQL, conn, adOpenStatic, adLockOptimistic
End Sub

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

'===== Путь к DBF
sPath = "C:\MYPROG\"

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

Dim conn As ADODB.Connection

Sub Create()
  Dim strPath As String
  strPath = "C:\MYPROG\"
  Set conn = New ADODB.Connection
  conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & ";User ID=Admin;Password=;Extended Properties=dBase IV")
 
  CreateDBFTemplate "FTPOLD"
  CreateDBFTemplate "FTPNEW"

  sSQL$ = "SELECT namefile FROM FTPNEW WHERE namefile Not In (Select namefile FROM FTPOLD)"
  Dim rs As New ADODB.Recordset
  rs.Open sSQL, conn, adOpenStatic, adLockOptimistic
  rs.Close
  Set rs = Nothing
  conn.Close
  Set conn = Nothing
End Sub

Public Function CreateDBFTemplate(sDBFName As String, Optional sPath As String = "C:\MYPROG\") As Boolean
  If Dir(sPath & "\" & sDBFName & ".dbf") = "" Then
    conn.Execute "create table " & sDBFName & "(namefile char(128))"
    CreateDBFTemplate = True
  End If
End Function