Ошибка компиляции: переменная не определена (VB6)

Question

Привет. Я пытаюсь связать базу данных из Access в VB6.Затем я попытался отобразить содержимое записи из базы данных в виде таблицы, используя ListView.Я проверил ссылки и необходимые компоненты, но продолжаю получать ту же ошибку.Там написано Ошибка компиляции: переменная не определена для заголовка этого кода:

Sub dbconnection()
connect.Open "Provider=Microsoft.jet.OLEDB.4.0;"
Data Source = "C:\Users\Admin\Documents\werk\LAST SEM!!!!!!!!\CSC301\Foot-it!\ftsdb.mdb"
End Sub

Я уже объявил Option Explicit в верхней части кода, как показано здесь:

Option Explicit
Dim connect  As New ADODB.Connection
Dim rs As New ADODB.Recordset

IЯ действительно новичок в этом, и, честно говоря, я только что посмотрел это на Youtube.Любой вид помощи будет высоко ценится.Заранее спасибо.

PS: Если вам нужно больше деталей, просто прокомментируйте, и я отредактирую для вашего разъяснения.

Answer 1

Ваша проблема в том, что бит «Источник данных» должен быть частью предыдущей строки.Вы должны открыть соединение, указав драйвер соединения и параметры в операторе open.

Попробуйте это:

connect.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=C:\Users\Admin\Documents\werk\LAST SEM!!!!!!!!\CSC301\Foot-it!\ftsdb.mdb"

Answer 2

Data Source = "C:\Users\Admin\Documents\werk\LAST SEM!!!!!!!!\CSC301\Foot-it!\ftsdb.mdb"

«Данные» раньше были зарезервированным словом в более ранних версиях BASIC.

Я не слишком много работаю с SQL, но думаю, что вы хотели сделать что-то более похожее:

connect.DataSource = "C:\Users\Admin\Documents\werk\LAST SEM!!!!!!!!\CSC301\Foot-it!\ftsdb.mdb"

или

rs.DataSource = "C:\Users\Admin\Documents\werk\LAST SEM!!!!!!!!\CSC301\Foot-it!\ftsdb.mdb"

Другие здесь с большим опытом ADO могут подтвердить, что, если любой из них, является правильным.

РЕДАКТИРОВАТЬ: Пожалуйста, обратитесь к ответу Люка Г., так как это правильный ответ.Мой, хотя помеченный как принятый, я понимаю, что это неправильно.