SELECT * FROM БД1
WHERE ключ IN (SELECT ключ FROM БД2)

' Переменная с подключением
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
' Путь к базе
Dim cstrBase As String

cstrBase = "Здесь указываем путь в нужном формате к папке с таблицами dbf"

With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & cstrBase & ";Extended Properties=dBase IV"
    .Open

Set rs = .Execute("Сюда пишем запрос согласно диалекта SQL")

'Выкидываем результат запроса на лист Excel

Cells(3, 1).CopyFromRecordset rs
' Закрываем соединение
.Close
End With

SELECT Customers.CustomerID
FROM Customers
IN "C:\DBASE\DATA\SALES" "dBASE IV;"
WHERE Customers.CustomerID Like "A*"