Sub From_Access_In_Excel() '
Application.ScreenUpdating = False
Dim dbe As Object '
Dim db  As Object '
Dim rst As Object '
Void = " & Space(1) & "

If ActiveSheet.Name = "ДляПримера" Then
    FullWay_1 = ActiveWorkbook.Path '
    FileNameBD = "DB.accdb"
    FullWay = FullWay_1 & "\" & FileNameBD
    
    Set dbe = CreateObject("DAO.DBEngine.120") '
    Set db = dbe.OpenDatabase(FullWay) '
        
        sSQL = sSQL + ""
        sSQL = "SELECT "
        sSQL = sSQL + " Фамилия " & Void & ""
        sSQL = sSQL + " Имя " & Void & ""
        sSQL = sSQL + " Отчество " & Void & ""
        sSQL = sSQL + " ДатаРождения "
        sSQL = sSQL + " FROM "
        sSQL = sSQL + " Пример "
        sSQL = sSQL + " WHERE "
        sSQL = sSQL + " ДатаРождения > 11 "
        
    Set rst = db.OpenRecordset(sSQL)
    Range("A2").CopyFromRecordset rst
End If

Set dbe = Nothing
Set db = Nothing
Set rst = Nothing

Application.ScreenUpdating = True
End Sub