出错，字符串多于255个字符

Question

如题，为什么会有这样的错误？怎样解决？请高手赐教

Answer 1

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
        MsgBox "1"
        .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用VB6控制WORD的邮件合并，在VB的设计环境中能运行，但打包后，运行提示如题错误，不得其解