var
msaccess,db,rs:idispatch;
begin
//如果是access95则换用"DAO.DBEngine"
msaccess:=createoleobject('DAO.DBEngine.35')
db:=V.OleFunction('OpenDatabase'),'c:/xxx/xxx/xxx/xxx.mdb');
rs:=v1.Olefunction('Openrecordset','tbdistrito');
listbox.items.clear();
while (not(rs.olepropertyget('eof')))
listbox1.items.add(rs.olepropertyget('fields','distrito'));
rs.oleprocedure('movenext');
rs.oleprocedure("close");
free(msaccess);
free(db);
free(rs);
end;
累死了!!!!!!!!!!!