Интересная задачка по подключению к БД

[DelMast]

Доброе время суток, господа!
У меня вот такая ситуация. Пишу программу на делфи7 база данных на SQL 2005, написал код который при первом запуске программы создает файл соединения *.udl, далее он должен открыться для редактирование, но не получается выдает ошибку "Не удается сохранить введёные своёства, поскольку файл связи с данными недоступен. Убедитесь, что жесткий диск или сетевая папка все ещё доступны". А далее при втором запуске программы все работает отлично, но надо чтобы работала с первого раза.
Вот код

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, ShellAPI;
type
TForm1 = class(TForm)
Button1: TButton;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);


begin

ADOQuery1.Active:=true;

end;
procedure TForm1.FormCreate(Sender: TObject);


begin

ADOConnection1.ConnectionString:='F ILE NAME=Connect.udl';

try

ADOConnection1.Connected:=True;

except

on e:Exception do

begin

CreateFile('Connect.udl',GENERIC_AL L,FILE_SHARE_READ,nil,CREATE_NEW,FI LE_ATTRIBUTE_NORMAL,FILE_FLAG_RANDO M_ACCESS);//создание файла udl

ShellExecute(0,'open','Connect.udl' ,NIL,NIL,SW_SHOWNORMAL);//открытие файла udl

end;

end;
end;
end.

заранее благодарю.

[Virtson]

просто надо сразу после
CreateFile('Connect.udl',GENERIC_AL L,FILE_SHARE_RE AD,nil,CREATE_NEW,FILE_ATTRIBUTE_NO RMAL,FILE_FLAG_ RANDOM_ACCESS);//создание файла udl

делать

ADOConnection1.Connected:=True;

!

снова приконнектится кто будет ?

[DelMast]

ADOConnection1.Connected:=True;
не пройдёт т. к. файл *.udl пустой и не содержит параметров подключения.