Uses ADODB;var
  MyConn:TADOConnection;
begin
  MyConn:=TADOConnection.Create(Application);
  MyConn.Connectionstring:='';
  ........
  MyConn.Active:=True;
end;