Подключеник к *.mdb ADODC програмно, при запуске программы

[Wolfsider]

Проблема: работаю с ADODC ... в disinger'е connection string пустая... но есть связные обьекты на форме. Делаю следующее:

Код: Выделить всё

Private Sub Form_Initialize()
Adodc1.Recordset.Close
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=(БД);Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=(пароль)"
Adodc1.RecordSource = "SELECT * FROM clases"
Adodc1.Recordset.Open , , adOpenDynamic
Adodc1.Refresh
End Sub

Private Sub Form_Load()
MsgBox Adodc1.Recordset.RecordCount
End Sub


При вызове msgbox выдается ошибка 91 "Object varible or With block varible not set"...

Как мне это пофиксить. Вообще целью является коннект к некоторой базе данных, которая находится в некотором месте при запуске программы.. причем ИМЕННО с помощью ADODC...

[alibek]

ADODC выкинуть, работать непосредственно с ADO.

[Wolfsider]

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

[VVitafresh]

Слушайся alibek'a:

ADODC выкинуть, работать непосредственно с ADO.

А если все же хочешь ADODC, то выполняй код в Form_Load:

Код: Выделить всё

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=qqq"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM table1"
Adodc1.Refresh

MsgBox Adodc1.Recordset.RecordCount
End Sub