Спасибо Вам за ссылку, но если чесно я там абсолютно не разобрался- всего 2 месяца работаю с VBA (самоучка), если я Вам покажу код полностью с подключением к БД - вы мне подскажите, как правильно прописать -дабы она таки работала с расширением *accdb

Установлен у меня 2007 office - соответсвенно стоит тот же Access и Excel.  
Выкладываю Вам весь код:  
 
Option Explicit  
Dim T As Date, tt As Date, m As Date  
Dim t1 As Date  
Dim t2 As Date  
Dim t3 As Date  
Dim t4 As Date  
Dim t5 As Date  
Dim t6 As Date  
Dim t7 As Date  
Dim t8 As Date  
Dim t9 As Date  
Dim t10 As Date  
Dim t11 As Date  
Dim t12 As Date  
Dim Sheet_name As String  
Dim ttt As Boolean  
Dim tttt As Boolean  
Dim h As Date  
 
'===================DataBase===============  
Public PWD As String 'пароль базы данных BRS  
Public DB As String 'путь к базе данных BRS на сервере  
 
Public Function DateAccess(d As Date)  
   DateAccess = "#" & Month(d) & "/" & Day(d) & "/" & Year(d) & "#"  
End Function  
 
' Выгрузка данных из БД  
Public Function GetRecord(strDB, strSql, PWD, Sheet_name As String) As Variant ' функция формирующая набор записей по сформированому запросу  
'On Error Resume Next  
Dim i As Byte  
   Dim DB As DAO.Database  
   Dim qdfTempQuery As DAO.QueryDef  
   Dim rs As DAO.Recordset  
   Set DB = OpenDatabase(strDB, False, False, "MS Access; PWD=" & PWD) 'открытие базы данных с монопольным паролем  
   Set qdfTempQuery = DB.CreateQueryDef("") ' пустые кавычки означают, что запрос не будет сохранен в базе данных  
   With qdfTempQuery ' формируем параметры запроса  
       'Debug.Print strSql  
       .Sql = strSql ' передаем запрос на выполнение  
        Set rs = .OpenRecordset(dbOpenForwardOnly) 'производим запись данных  
   End With  
   Set GetRecord = rs ' передаем записанные данные функции, которая может принимать форму массива данных  
   Sheets(Sheet_name).Range("A2").CopyFromRecordset rs  
     
   For i = 1 To rs.Fields.Count  
       Sheets(Sheet_name).Cells(1, i).Value = rs.Fields(i - 1).Name  
   Next  
End Function  
 
 
 
Sub load_access_sales()  
   Call clear_sheet("продажи_МБ")  
  ' If UserForm8.TextBox1.Value <> "" Then  
 
     '      T = UserForm2.TextBox1.Text  
     ''     tt = UserForm2.TextBox2.Text  
         
 
     
   Dim strSql As String  
   Dim z  
DB = "V:\Public\DRP_Project\БД\Sales.mdb"  
 
strSql = "SELECT ЗАПРОС_МБ_NEW.[Дата сделки], ЗАПРОС_МБ_NEW.[Региональная дирекция], ЗАПРОС_МБ_NEW.[Тип контрагента], ЗАПРОС_МБ_NEW.[Код контрагента], ЗАПРОС_МБ_NEW.[Тип сделки (наим)], ЗАПРОС_МБ_NEW.[Код сделки], ЗАПРОС_МБ_NEW.[Код сделки кредита], ЗАПРОС_МБ_NEW.Валюта, ЗАПРОС_МБ_NEW.[Первоначальная сумма по договору (грнэкв)], ЗАПРОС_МБ_NEW.[%% ставка(маржа)], ЗАПРОС_МБ_NEW.[Count-Номер сделки] FROM ЗАПРОС_МБ_NEW;"
 
           
        Sheet_name = "продажи_МБ"  
        z = GetRecord(DB, strSql, "", Sheet_name)  
     
End Sub