用VB6控制WORD的邮件合并，在VB的设计环境中能运行，但打包后，运行提示错误

Question

Dim strTemp1 As String
    Dim strTemp2 As String
    Dim strTemp3 As String
    strTemp1 = App.Path & "\templates\tempXJ.xls"
    strTemp2 = "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & strTemp1 & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine T"
    With WordApp.ActiveDocument.MailMerge
        .MainDocumentType = wdFormLetters
        .OpenDataSource strTemp1, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=0, Connection:=strTemp2 _
        , SQLStatement:="SELECT * FROM `Sheet1$`", SQLStatement1:="", SubType:=1打包后运行提示“字符串多于255个字符”。但是在设计环境下运行正常

Answer 1

红色部分的设置中默认的设置去掉