[Страдалецъ]

Ну например для полключения к базе mdb можно так написать:

Код:

ConnectionString := Format('Provider=Microsoft.Jet.OLEDB.4.0;User ID=%s;Data Source=%s',[edUserName.Text,OpenDialog.FileName]);

или так:

Код:

 NameDB := ExtractFileName(dbName);
 PathDB := ExtractFilePath(Application.ExeName);
 AppDB.ConnectionString := Format('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s',[PathDB+NameDB]);