Private Sub CommandButton1_Click()
    '---------- объявление переменных ------
    ' переменная типа базы данных
    Dim dbAccess As Database
    ' переменная типа набор записей
    Dim reRecordSet As Recordset
    ' здесь будет SQL запрос
    Dim stSQL As String
    ' переменная типа даты
    Dim daDate As Date
 
    ' а вдруг ошибка
    'On Error GoTo ErrorsDB
 
    ' ---------- получаем данные из ячейки
    daDate = Range("DATES").Value
    ' ---------- работа с базой ------------
    ' откроем базу данных
    Set dbAccess = OpenDatabase(stDBGetPath)
    ' Строим SQL запрос
    stSQL = "SELECT * FROM[Curs] WHERE[Поле1] =""" & daDate & """"
    ' получаем набор значений
     Set reRecordSet = dbAccess.OpenRecordset(stSQL)
    ' если данные получены тогда занести в ячейку
    If (reRecordSet.RecordCount >  0 ) Then
        ' поместить значение в ячейку
        Range("KURS").Value = reRecordSet!Поле2
        ''или
        ''Range("KURS").CopyFromRecordset reRecordSet
    Else
        MsgBox "Not Found"
    End If
 
    ' закрываем набор записей
    reRecordSet.Close
    ' закрываем базу данных
    dbAccess.Close
    ' все в норме конец
    GoTo Ends
    ' ошибка где-то однако
ErrorsDB:
    MsgBox "Произошла ошибка"
Ends:
End Sub

Private Function stDBGetPath() As String
    Dim stTemp As String
    ' взять путь нахождения активной книги
    stTemp = ActiveWorkbook.Path
    ' прибавить имя базы данных
    stDBGetPath = stTemp + "\" + "Curs.mdb"
End Function

Sub sdfassdasdg()\n\nDim cnn As ADODB.Connection\n    Dim rst As ADODB.Recordset\n    Dim strCnnString As String\n    Dim strSource As String\n    \n    strSource = "C:\\MyBook.xls"\n    \n    \' Строка подключения ODBC.\n    \'strCnnString = "DRIVER={Microsoft Excel Driver (*.xls)};" _\n    \'  & "ReadOnly=1;DBQ=" & strSource\n    \n    \' Строка подключение OLE DB.\n    strCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _\n      & strSource & ";Extended Properties=Excel 8.0"\n    \n    Set cnn = New ADODB.Connection\n    \n    cnn.Open strCnnString\n    \n    \' Используем метод Execute для создания набора записей.\n    \'Set rst = cnn.Execute("SELECT * FROM [Лист1$]")\n    \n    \' Или для определенного диапазона.\n    \'Set rst = cnn.Execute("SELECT * FROM [Лист1$]A1:B10")\n    \n    \'Do Until rst.EOF\n    \'    Debug.Print rst.Fields("Поле1") & " " & rst.Fields("Поле2")\n    \'    rst.MoveNext\n    \'Loop\n\n    \' Добавляем записи.\n    Set rst = New ADODB.Recordset\n    \n    With rst\n        .CursorLocation = adUseClient\n        .Open "SELECT * FROM [Лист1$]", cnn, adOpenStatic, _\n          adLockOptimistic\n        .AddNew\n        .Fields("Поле1") =  123 \n        .Fields("Поле2") = "Test"\n        .Update\n    End With\n    \n    \' Обновляем записи.\n    \'With rst\n    \'    .CursorLocation = adUseClient\n    \'    .Open "SELECT * FROM [Лист1$] WHERE Поле2=\'Test\'", cnn, _\n    \'      adOpenStatic, adLockOptimistic\n    \'    .Fields("Поле1") = 1234\n    \'    .Update\n    \'End With\n\n    \' По поводу удаления. Из справки MSDN.\n    \' You cannot:\n    \' 1. Delete an entire record at once or you receive the following error message:\n    \' Deleting data in a linked table is not supported by this ISAM.\n    \' You can only delete a record by blanking out the contents of each\n    \' individual field.\n    \' 2. Delete the value in a cell containing an Excel formula or you\n    \' receive the following error message:\n    \' Operation is not allowed in this context.\n    \' 3. You cannot delete the empty spreadsheet row(s) in which the deleted data\n    \' was located, and your recordset will continue to display empty\n    \' records corresponding to these empty rows.\n    \n    rst.Close\n    cnn.Close\n\n    Set rst = Nothing\n    Set cnn = Nothing\n End Sub