各位老师帮忙看一下！

unction GetPwd(cardNoA:pchar):string;stdcall; //自动生成校对密码 老卡需要查询数据库
var
Tpd:string;
Conn:TADOConnection;
Rs:TADOQuery;
begin
Tpd:=copy(cardNoA,8,1);
Conn:=TADOConnection.Create(nil);
Conn.Close;
Conn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ic.mdb;Jet OLEDB:Database Password=1223456';
Conn.LoginPrompt := False;
Conn.ConnectionTimeout:=3000;
try
Conn.Connected:=true;
rs:=TADOQuery.create(nil);
rs.Connection:=conn;
Rs.Close;
Rs.SQL.Clear;
Rs.SQL.Add('select * From gyuser'+tpd+' where userid=:a');
Rs.Parameters.ParamByName('a').Value :=string(cardNoA);
Rs.Open;
if rs.RecordCount>0 then
begin
result := Trim(tujmpwd(rs.FieldByName('NewPassword').AsString,'0'));
end
else
begin
result:='111111';
end;
rs.Close;
conn.Close;
except
result:='1';
end;
end;
各位老师帮忙看一下，这是我Dll里的一个函数，放到别人电脑里调用，总是连不上数据库，可是在我电脑里正常运行。