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

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

ребята не получается вывести в dbgrid название колонок, пишет что гдето синтаксическая ошибка (запята) вот таким кодом пытаюсь прописать не получается

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\db1.mdb"
Data1.RecordSource = "SELECT * FROM Журнал WHERE Номер, Дата, Время, Начало_смены, Конец_смены, Сумма, Фирма, Автор"
Data1.Refresh

Тему можно закрыть, сам решил в чем проблема!

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

textual
                            Листинг программы 
                        
                            WHERE (Номер=1) AND (Дата<=DATE()) AND (Фирма='МояФирма')