SELECT * FROM TABLE1
WHERE Дата=[Введите дату:];

Private Sub Кнопка36_Click()
On Error GoTo Err1
    'Переменные
    Dim XLApp As Object, XLBook As Object, XLSheet As Object, RS As Object
    Dim CountColumn As Integer, WidthColumn As Integer, StrSQLInExcel As String
    'Создаем объекты: Excel, Книгу, Лист
    Set XLApp = CreateObject("Excel.Application")
    Set XLBook = XLApp.Workbooks.Add
    Set XLSheet = XLBook.Worksheets(1)
    Set RS = CurrentDb.OpenRecordset("Тест")
    'Узнаем количество колонок в Recordset
    CountColumn = RS.Fields.Count
    'Циклом заполняем заголовки колонок
    For i = 0 To CountColumn - 1
        'Передвигаемся по колонкам в Excel путем смещения
        XLSheet.Range("A1").offset(0, i).Value = RS.Fields(i).Name
        'Немного подкорректируем внешний вид выгрузки
        'Ширину колонки определим динамически на основе длины поля, но не более 20 и не менее 6
        WidthColumn = Len(RS.Fields(i).Name) + 2
        If WidthColumn > 20 Then
            WidthColumn = 20
        ElseIf WidthColumn < 6 Then
            WidthColumn = 10
        End If
        'Задаем для заголовка
        'Перенос по словам
        XLSheet.Rows(1).WrapText = True
        'Выравнивание
       
        'Цвет фона
        XLSheet.Rows(1).Interior.ColorIndex = 15
        'Ширина
        XLSheet.Columns(i + 1).ColumnWidth = WidthColumn
    Next
    'Записываем Recordset в Excel
    XLSheet.Range("A2").CopyFromRecordset RS
    'Делаем видимым Excel
    XLApp.Visible = True
    'Закрываем Recordset
    RS.Close
    Set RS = Nothing
Ex1:
    Exit Sub
Err1:
    MsgBox Err.Description
    Resume Ex1
End Sub

 Set RS = CurrentDb.OpenRecordset("Тест")

SELECT * FROM TABLE1
WHERE Дата=[Введите дату:];

SELECT * FROM TABLE1

    Dim q As QueryDef
    Set q = CurrentDb.QueryDefs("Тест")
    q.Parameters(0).Value = "[Введите дату:]"
    DoCmd.OpenQuery "Тест"

 q.Parameters(0).Value = InputBox("Введите дату:", "Задайте параметр", Date)

(dbFailOnError)