快速开发平台新增记录弹出窗体中增加复制当前选中记录按钮，出现错误“标准表达式中数据类型不匹配”请高手帮忙找一下问题

在快速开发平台中点击新记录，会复制当前选中的记录，不知哪里错了无运行。

运行时错误’-2147217913 （80040e07）':

标准表达式中数据匹配。

点击调试出现下列提示

请大家帮忙解决一下比较着急，非常感谢！！

End SubPrivate Sub 复制当前选中记录_Click()
  Dim strSQL As String
  Dim cnn As Object
  Dim rst As Object
  Set cnn = CurrentProject.Connection
 
   strSQL = "SELECT * FROM [审批单流水记录] WHERE [序号]=" & SQLText(Form_frm审批单流水记录.sfrList.Form![序号])
    Set rst = OpenADORecordset(strSQL, , cnn)
    Me![合同性质] = rst![合同性质]
    Me![合同类型] = rst![合同类型]
    Me![承揽合同名称] = rst![承揽合同名称]
    Me![工程名称] = rst![工程名称]
    Me![发包方] = rst![发包方]
    Me![施工方] = rst![施工方]
    Me![承办单位] = rst![承办单位]
    Me![经办人] = rst![经办人]
    Me![合同编号] = rst![合同编号]
    Me![合同签署日期] = rst![合同签署日期]
    Me![合同金额] = rst![合同金额]
    Me![合同范围] = rst![合同范围]
    Me![结算额] = rst![结算额]
    Me![分包金额] = rst![分包金额]
    Me![分包结算额] = rst![分包结算额]
    Me![分包单位资质] = rst![分包单位资质]
    Me![是否招投标] = rst![是否招投标]
    Me![分包范围] = rst![分包范围]
    Me![存档日期] = rst![存档日期]
    Me![存档人] = rst![存档人]
    Me![合同状态] = rst![合同状态]
    Me![流转单\补签单] = rst![流转单\补签单]
    Me![流程开始日期] = rst![流程开始日期]
    Me![流转单编号] = rst![流转单编号]
    Me![其他说明] = rst![其他说明]
    Me![合同附件] = rst![合同附件]
    Me![分包定价方式] = rst![分包定价方式]
    rst.Close
    Set rst = Nothing
    Set cnn = Nothing
End Sub