Dim adoConnection As New ADODB.Connection adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db4.mdb;Persist Security Info=False" Dim adoRecordset As New ADODB.Recordset adoRecordset.Open "SELECT * FROM [dBASE IV;DATABASE=d:\dbfs\].[dBaseTable.dbf] AS [T1] INNER JOIN [AccessTable] ON [T1].[ID1] = [AccessTable].ID2", adoConnection Debug.Print adoRecordset.GetString
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db4.mdb;Persist Security Info=False"
Dim adoRecordset As New ADODB.Recordset
adoRecordset.Open "SELECT * FROM [dBASE IV;DATABASE=d:\dbfs\].[dBaseTable.dbf] AS [T1] INNER JOIN [AccessTable] ON [T1].[ID1] = [AccessTable].ID2", adoConnection
Debug.Print adoRecordset.GetString