[Black Raider]

а почему вначале коннект:

Код:

pyt:='Provider=Microsoft.Jet.OLEDB.4.0;'           ;
      pyt:=pyt+'Data Source='+OpenDialog1.FileName+';'   ;
      pyt:=pyt+'Persist Security Info=False;'            ;
      pyt:=pyt+'Jet OLEDB:Database Password='+pas ;

ADOConnection1.ConnectionString:=pyt;
ADOConnection2.ConnectionString:=pyt;

а потом:

Код:

pyt:='base\db'+inttostr(nm)+'.mdb';

ADOConnection1.ConnectionString:=pyt;

может так:

Код:

pyt:=pyt+'Data Source=base\db'+inttostr(nm)+'.mdb;'   ;
      pyt:=pyt+'Persist Security Info=False;'            ;
      pyt:=pyt+'Jet OLEDB:Database Password='+pas ;

ADOConnection1.ConnectionString:=pyt;
ADOConnection2.ConnectionString:=pyt;