procedure TMainForm.mnuStartNewDatasourceClick(Sender: TObject);
begin
if DataModule2.ADOConnection1.Connected then
DataModule2.ADOConnection1.Close;
DataModule2.ADOConnection1.ConnectionString := PromptDataSource(Application.Handle, DataModule2.ADOConnection1.ConnectionString);
DataModule2.ADOConnection1.Open;