Sub ReadMDB()

'ïåðåìåííàÿ õðàíÿùàÿ ðåçóëüòàò çàïðîñà
Dim tbl As Recordset

'ñòðîêà çàïðîñà SQL
Dim SQLr As String

'ïåðåìåííàÿ õðàíÿùàÿ ññûëêó íà ïîäêëþ÷åííóþ ÁÄ
Dim dbs As Database

'ïîäêëþ÷àåìñÿ ê mdb
Set dbs = DAO.OpenDatabase("G:\price.mdb")
    
'ñîñòàâëÿåì ñòðîêó SQL çàïðîñà
SQLr = "SELECT * FROM tbl_ïðàéñ"

'îòïðàâëÿåì çàïðîñ îòêðûòîé ÁÄ
'ðåçóëüòàò â âèäå òàáëèöû ñîõðàíåí â tbl
Set tbl = dbs.OpenRecordset(SQLr)
   
'âñòàâëÿåì ðåçóëüòàò â ëèñò íà÷èíàÿ ñ ÿ÷åéêè A1
Cells(1, 1).CopyFromRecordset tbl

'Çàêðûâàåì âðåìåííóþ òàáëèöó
  tbl.Close
  
'Î÷èùàåì ïàìÿòü. Åñëè ýòîãî íå ñäåëàòü, òî òàáëèöà
'òàê è îñòàíåòñÿ âèñåòü â îïåðàòèâêå.
  Set tbl = Nothing
  
'Çàêðûâàåì áàçó
dbs.Close
  Set dbs = Nothing
End Sub