错误-2148217904 程序设计中，紧急求助！！！[讨论]

hamletl

    Dim con As ADODB.Connection
    Dim rec As Recordset
    Set con = New Connection
    Set con = CurrentProject.Connection
    Set rec = New Recordset
        rec.ActiveConnection = con
        con.BeginTrans
       strsql = s1 & s2 & s3 & s4 ....
        
        rec.Open SqlStr, con, 3, 3, 1
      ..........
运行到此处出现以下提示。

运行时错误'-2147217904 (80040e10)':
至少一个参数没被指定值。

是怎么回事？
*说明：STRSQL字串放在SQL查询试用时不出错。
本人怀疑STRSQL字串太长。问请怎么解决，原因？？

hamletl

花了一上午的时间，本人自己搞定。
时间要用#号括起来！！！！