VB6制成EXE执行文件之后的有关问题，

VB6制成EXE执行文件之后的问题，急急急！！
VB6的系统，我的程序里有一个A.ini的配置文件，里面有数据库的链接配置，配置如下
[Application]
ProgramCaption="xxx系统"
ConectionString="Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=DB1;Data Source=(local)"

在程序里通过访问INI文件来获取链接字符串
代码如下：
Public Const INIFilename = "DigiPhoto.ini"
'获取Ini配置信息
Public Function GetINISetting(strSection As String, strKey As String) As String
    Dim ret As Variant
    Dim RetStr As String
    Const BufSize = 512
    RetStr = String(512, 0)
    
    ret = GetPrivateProfileString(strSection, strKey, "", RetStr, BufSize, App.Path & "" & INIFilename)
    RetStr = Left(RetStr, ret)
    GetINISetting = RetStr
End Function

Sub Main
    ……此处省略N行代码
    gstrConectionString = GetINISetting("Application", "ConectionString")
    ……此处省略N行代码
end SUM

然后我的程序在本机运行的时候不报任何错误，但是当我把它制成XXX.EXE文件后，一执行EXE文件，就弹出错误信息，错误截图如下：尼玛...上不了图片，贴错误文字

运行时错误'3709'
链接无法用于执行此操作，在此上下文中它可能已经被关闭或无效

请处理过此问题的高手高高手前来帮忙解决，问题一解决立马结贴，从不拖分

VB6?
[解决办法]
GetPrivateProfileString是什么东东？
错误应该是找到数据库或者语法错误，检查一下你的语法。
另外，你的exe程序应该打包后在其他计算机上进行安装，这样运行应该不会有错。