var
propath:string;
begin
propath:=ExtractFilePath(Paramstr(0));;
adoconnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+propath+'data\lxdata.mdb;Mode=ReadWrite;Persist Security Info=False';
adoconnection1.open;
end;
这个是最简单的,其中propath是得到程序所在目录,数据库是 lxdata.mdb 用的是access数据库