Проблема подключения БД access с паролем

[~Данил~]

Добрый вечер.

По заданию на БД Access должен стоять пароль, сама БД должна динамически подключаться к программе.
Подключение произвожу через ADOConnection.
Строку ConectionString меняю программно. Проблема заключается в следующем.
Если прописать путь к БД сразу, т.е.

String connect="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;"
"Data Source=D:\\Диплом\\MyDatabase.mdb;" // или просто указать название БД
"Jet OLEDB:Database Password=123;"
"Mode=Share Deny None;"
"Jet OLEDB:System database="";"
"Jet OLEDB:Registry Path="";"
"Jet OLEDB:Engine Type=5;"
"Jet OLEDB:Database Locking Mode=1;"
"Jet OLEDB:Global Partial Bulk Ops=2;"
"Jet OLEDB:Global Bulk Transactions=1;"
"Jet OLEDB:New Database Password="";"
"Jet OLEDB:Create System Database=False;"
"Jet OLEDB:Encrypt Database=False;"
"Jet OLEDB:Don't Copy Locale on Compact=False;"
"Jet OLEDB:Compact Without Replica Repair=False;"
"Jet OLEDB:SFP=False";

То подключение выполняется успешно и всё работает.

А если взять путь к БД из OpenDialog:

String connection="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;"
"Data Source="+ OpenDialog1->FileName; //т.е. поменять всего одну строку
"Jet OLEDB:Database Password=123;"
"Mode=Share Deny None;"
"Jet OLEDB:System database="";"
"Jet OLEDB:Registry Path="";"
"Jet OLEDB:Engine Type=5;"
"Jet OLEDB:Database Locking Mode=1;"
"Jet OLEDB:Global Partial Bulk Ops=2;"
"Jet OLEDB:Global Bulk Transactions=1;"
"Jet OLEDB:New Database Password="";"
"Jet OLEDB:Create System Database=False;"
"Jet OLEDB:Encrypt Database=False;"
"Jet OLEDB:Don't Copy Locale on Compact=False;"
"Jet OLEDB:Compact Without Replica Repair=False;"
"Jet OLEDB:SFP=False";

то вылезает вот такая ошибка


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

[_Bers]

попробуйте так:

String connection="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;"
"Data Source="+ OpenDialog1->FileName; //т.е. поменять всего одну строку

+  // конкатенация

"Jet OLEDB:Database Password=123;"
"Mode=Share Deny None;"
"Jet OLEDB:System database="";"
"Jet OLEDB:Registry Path="";"
"Jet OLEDB:Engine Type=5;"
"Jet OLEDB:Database Locking Mode=1;"
"Jet OLEDB:Global Partial Bulk Ops=2;"
"Jet OLEDB:Global Bulk Transactions=1;"
"Jet OLEDB:New Database Password="";"
"Jet OLEDB:Create System Database=False;"
"Jet OLEDB:Encrypt Database=False;"
"Jet OLEDB:Don't Copy Locale on Compact=False;"
"Jet OLEDB:Compact Without Replica Repair=False;"
"Jet OLEDB:SFP=False";

при этом убедитесь, что содержимое OpenDialog1->FileName
содержит эквивалентную первому варианту строку.
при необходимости,
не забудьте добавить точку с запятой в конце.

[~Данил~]

Мда. Не стоит по ночам всё же работать
Спасибо, причина кроется где-то именно в продолжении строки, Ваш код работать отказался с той же ошибкой, я сделал чуть по другому и он заработал:

String con="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;"
"Jet OLEDB:Database Password=123;"
"Mode=Share Deny None;"
"Jet OLEDB:System database="";"
"Jet OLEDB:Registry Path="";"
"Jet OLEDB:Engine Type=5;"
"Jet OLEDB:Database Locking Mode=1;"
"Jet OLEDB:Global Partial Bulk Ops=2;"
"Jet OLEDB:Global Bulk Transactions=1;"
"Jet OLEDB:New Database Password="";"
"Jet OLEDB:Create System Database=False;"
"Jet OLEDB:Encrypt Database=False;"
"Jet OLEDB:Don't Copy Locale on Compact=False;"
"Jet OLEDB:Compact Without Replica Repair=False;"
"Jet OLEDB:SFP=False;"
"Data Source="+ OpenDialog1->FileName; // строку с прописанием пути просто убрал сюда

Тему можно считать закрытой.