OleDb.OleDbCommand и "Несоответствие типа в выражении" - VB

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

При выполнении данного запроса

command = New OleDb.OleDbCommand("Select Маршрут.Номер_маршрута, Начальная_станция.Название_станции, Конечная_станция.Название_станции, Маршрут.Стоимость from Начальная_станция, Конечная_станция, Маршрут where (Маршрут.Начальная_станция=Начальная_станция.Код) and (Маршрут.Конечная_станция= Конечная_станция.Код)", Connect)

Выдает ошибку "Несоответствие типа в выражении.". Подскажите чайнику в чем проблема?

Решение задачи: «OleDb.OleDbCommand и "Несоответствие типа в выражении"»

textual
                            Листинг программы 
                        
                            Dim Connect As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & My.Application.Info.DirectoryPath & "\db1.mdb")