怎样使用UDL文件链接SQL数据库？

Question

我在网上找了一份代码，但是不管用，实现不了。
我写的程序只能在我机子上用，换了别的机子就链不好UDL文件了。
我的UDL文件和我的程序是在同一个目录下的。
大伙帮忙看看呀！
procedure TDataM.DataModuleCreate(Sender: TObject);
var
 AppPath:array [0..MAX_PATH] of Char;
 LW:LongWord;
 Path,ConnectStr:String;
begin
  LW:=GetModuleFileName(Hinstance,@AppPath,SizeOf(AppPath));
  SetString(Path,AppPath,LW);
  ConnectStr:='File name='+ExtractFilePath(Path)+'connect.udl';
  Adoconn.Connected:=False;
  try
    con1.ConnectionString:=ConnectStr;
    con1.Connected:=True;
  Except
    MessageDlg('連接資料庫失敗!',mtInformation,[mbok],0);
    Application.Terminate;
  end;
end;

Answer 1

换了别的机子就链不好UDL文件了。///////////////此时需重新配置UDL连接,双击之把出错信息贴出来

Answer 2

用UDL做為連結數據庫的方式﹐當換了別的機器﹐是要重新配置UDL的﹐
UDL的方便就是體現在這里﹐重新配置一下UDL文件就可以了﹐不需要重新編譯程序

Answer 3

出错信息就是我在Delphi7里我的DBGrid的数据能够显示，而编译后产生的程序里我的原DBGrid的数据就没有了。上面的代码是不是还差句con1.open呀？怎么改一下，请教！