Как для ADO переключаться между базами Access?

[ВалГер]

Имею на форме элемент Adodc1 Когда в свойствах этого элемента прописана строка подключения (ConnectionString), то всё работает прекрасно - никаких проблем. Но если я эту же строку пытаюсь прописать во время выполнения, например при загрузке формы, примерно так
Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\POIPKRO\Районы\POIPKRO.mdb;Mode=ReadWrite;Persist Security Info=False"
Adodc1.Refresh

End Sub

то выдётся какая-то фигня и ничего неработает.
Строка взята прямо из построителя соединения. Что ещё этому ADO нужно ? Ещё раз напомню, что Adodc1 лежит на форме

[Konst_One]

Persist Security Info=True;User ID=Admin;Password=;

[ВалГер]

Persist Security Info=True;User ID=Admin;Password=;

Спаибо за участие, но, увы, не помогло!

[Cyrax]

выдётся какая-то фигня и ничего неработает

ну вы блин даеете... какую-то фигню. поубивалбы
а .RecordSource кто указывать будет? дядя?

[ВалГер]

выдётся какая-то фигня и ничего неработает

ну вы блин даеете... какую-то фигню. поубивалбы
а .RecordSource кто указывать будет? дядя?

Спасибо за участие и не сердитесь, я ведь действительно начинающий!

RecordSource в принципе указан в свойствах элемента Adodc1, который на форме. Или в данном случае его так же нужно ручками прописывать, как ниже?

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\MyVB60\Chunk\POIPKRO.mdb;Mode=ReadWrite;Persist Security Info=True;User ID=Admin;Password=;"

Adodc1.RecordSource = "SELECT * FROM R_RAION"

Adodc1.Refresh

End Sub

Я попробовал в таком варианте, но всё равно выдаётся
"Не выполнена проверка подлинности"
Что бы это значило и чего ещё не хватает?
С уважением В.Герасименко

[Konst_One]

может база запороленная или ей нужна системная mdw

[Cyrax]

это значило бы то, что в параметрах подключения не указан пароль для пользователя Admin.
use this

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

Private Sub Form_Load()
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\MyVB60\Chunk\POIPKRO.mdb;Mode=ReadWrite;Persist Security Info=false;"
  Adodc1.RecordSource = "SELECT * FROM R_RAION"
  Adodc1.Refresh
End Sub

[ВалГер]

Спасибо! Заработало.
Проблема, видимо, заключалась в том, что строки Adodc1.ConnectionString и
Adodc1.RecordSource

в свойствах элемента на форме должны быть пустыми и заполняться именно в Run-Time

Ещё раз спасибо за помощь!