Olá! Para resolver o seu problema você pode tentar o seguinte código:
procedure TForm1.FormCreate(Sender: TObject);
begin
If not(fileexists('local/arquivo')) then (1)
Begin
ShowMessage('Seu arquivo de banco de dados está faltando ou está em outro local'); (2)
OpenDialog1.Execute;
If OpenDialog1.Execute then
ADOConnection1.ConnectionString := OpenDialog1.FileName;(3)
End;
end;
Bom, basicamente ele verifica a existencia do arquivo em (1), onde 'local/arquivo' é o endereço e o nome do banco de dados, você pode colocar também a propriedade ConnectionString, assim:
...(FileExists('ADOConnection.ConnectionString')... . Em (2) o código avisa o usuário que o arquivo está faltando, e em (3) a aplicação "joga" o local e nome do arquivo aberto com o OpenDialog (Paleta Dialogs) na propriedade ConnectionString do ADO. No meu teste, o único problema foi que ao escolher o banco de dados na dialog você deve clicar em "ABRIR" pois não abre com o duplo clique...Se souber resolver, poste aqui! Obs.: O teste foi feito com banco de dados Access!