数据库连接问题

我用如下方法读INI文件连接数据库,有时连接不上但我如果把数据库所在的电脑其中一个盘映射到客户端上每次开机让映射自动连接,,这样不会出现连不上的问题了.如果我用代码实现这些功能如何做呀
uses inifiles;
procedure Td.DataModuleCreate(Sender: TObject);
var
myinifile:TINIFile;
filename:string;
begin
d.Connected:=false;
Filename:=ExtractFilePath(Paramstr (0))+'dos.ini';
myinifile:=Tinifile.Create(filename);
d.ConnectionString:=myinifile.Readstring ('test','数据源','00');
d.Connected:=true;end;