procedure Tformmain.FormCreate(Sender: TObject);
var MainPath:string;
begin
MainPath:=ExtractFilePath(Application.ExeName);
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+MainPath+'aa.mdb;Persist Security Info=False';//adoconnection1连接
adoquery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+MainPath+'aa.mdb;Persist Security Info=False';//adoquery1连接
//窗口创建时,使用相对路径来连接数据库.