Программная установка ConnectionString в ADOConnection

[zallza]

Здраствуйте. Вот пытаюсь программно устанавливать ConnectionString в ADOConnection, но из за апострофа в средине значения строки получаю ошибку, вот строка:

DataModule2.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=E:\Dokument.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";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'tCopy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=Fals';

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

[Grag]

Можно примерно так:

const  
  ADOProvider='Provider=Microsoft.Jet.OLEDB.4.0; Data Source=';

Затем в программе...
slrADOConnection.ConnectionString:=ADOProvider+DBPath;
slrADOConnection.Open;

DBPath - это путь к твоей БД.

[zallza]

Спасибо огромное