Sub Макрос1()
'
Dim MyODBC As Workspace
Dim MyConn As Connection
Dim All_String As Variant
Dim Name_String As Variant
Dim Sql_String As String
Dim TestTable As Recordset
Dim sht As Worksheet
Dim Wkb As Excel.Workbook

a = Format(Range("F2"), "mm/dd/yyyy")
b = Format(Range("H2"), "mm/dd/yyyy")

Const Conn_Str As String = "ODBC;DSN=База данных MS Access;DBQ=C:\Work\База\0030.mdb;DefaultDir=C:\Work\База;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTi"

Set MyODBC = CreateWorkspace("", "admin", "", dbUseODBC)
Set MyConn = MyODBC.OpenConnection("", , , Conn_Str)
 Sql_String = "SELECT Экспорт_Группы.Группа, Экспорт_Группы.Дата, Экспорт_Группы.[Sum-Продано_кг]" & _
        " FROM Экспорт_Группы" & _
        " WHERE (((Экспорт_Группы.Дата) Between #" & a & "# And #" & b & "#))"
    
    Set TestTable = MyConn.OpenRecordset(Sql_String, dbOpenDynaset,  0 , dbPessimistic)
    
Set sht = Wkb.Sheets(Лист1)
TestTable.MoveFirst
sht.Range("B1").CopyFromRecordset TestTable

 TestTable.Close
 MyConn.Close
 MyODBC.Close

End Sub

Sub Макрос2()

    Dim dbAccess As Database
    Dim TestTable As DAO.Recordset
    Dim Sql_String As String
    Dim a, b As Date

    On Error GoTo ErrorsDB
 
    a = Range("F2").Value
    b = Range("H2").Value

    
    Set dbAccess = OpenDatabase("C:\Work\База\0030.mdb")
    Sql_String = "SELECT Экспорт_Группы.Группа, Экспорт_Группы.Дата, Экспорт_Группы.[Sum-Продано_кг]" & _
        " FROM Экспорт_Группы" & _
        " WHERE (((Экспорт_Группы.Дата) Between " & a & " And " & b & "))"
    Set TestTable = dbAccess.OpenRecordset(Sql_String)
    
    If (TestTable.RecordCount >  0 ) Then
    Range("A2").CopyFromRecordset TestTable
    Else: MsgBox "Not Found"
    End If
 
    TestTable.Close
    dbAccess.Close
    GoTo Ends
    
ErrorsDB:
    MsgBox "Произошла ошибка"
Ends:

End Sub