呵呵,net_quite(net_quite)老兄说的没错儿,你这样写
with adoconnection1 do begin
loginprompt:=false;
connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\xsgl\xsgl.mdb;Persist Security Info=False;Jet OLEDB:Database Password=111111';
open('Admin','')
end;