ну не то что не нравится... просто в первом случае коннект через АДО второй вариант... хмм... даже не знаю... поэтому и предложил что б формировать коннект так же как и первый.
ПС. а зачем тут else?
Код:
if not CopyFile('base\db1.mdb','base\dbx',true)then
begin
x1:
if not CopyFile(Pchar('system\db1'), Pchar('base\db'+inttostr(nm)+'.mdb'), true) then
begin
nm:=nm+1;
ShowMessage('Error');
goto x1;
end
else
end
else begin
ADOConnection1.Connected:=true;
pyt:='base\db'+inttostr(nm)+'.mdb';
end;