Нижеприведенный макрос не работает, из-за ошибки синтаксиса )="EUR" - т.к. внутри кавычек появляются кавычки - как решить эту проблему - посмотрите файл, не забудьте подключить библиотеку DAO  
 
Sub ImportSQLFromBD()  
 
Dim BD As DAO.Database  
Dim rs As DAO.Recordset  
Dim strSQL As String  
 
strSQL = "SELECT ForexQuotes.Котировка, ForexQuotes.OPEN" & _  
"FROM ForexQuotes" & _  
"WHERE (((ForexQuotes.Котировка)="EUR"));"  
 
Set BD = OpenDatabase(ThisWorkbook.Path & "\BD.mdb")  
Set rs = BD.TableDefs("ForexQuotes").OpenRecordset(dbOpenDynaset)  
ThisWorkbook.Worksheets("Лист1").Range("A1").CopyFromRecordset rs  
 
End Sub