Поправить код для прописания пути к БД - VB

Формулировка задачи:

ребята не получается вывести в dbgrid название колонок, пишет что гдето синтаксическая ошибка (запята) вот таким кодом пытаюсь прописать не получается
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\db1.mdb"
Data1.RecordSource = "SELECT * FROM Журнал WHERE Номер, Дата, Время, Начало_смены, Конец_смены, Сумма, Фирма, Автор"
Data1.Refresh
Добавлено через 2 часа 16 минут Тему можно закрыть, сам решил в чем проблема!

Код к задаче: «Поправить код для прописания пути к БД - VB»

textual
WHERE (Номер=1) AND (Дата<=DATE()) AND (Фирма='МояФирма')

13   голосов, оценка 3.615 из 5


СОХРАНИТЬ ССЫЛКУ