求助：VB程序报错

VB程序以前一直运行正常，改版以后出现错误
声明：
1、出现错误的这个文件没做任何改动，改的是其他文件；
2、在测试机运行也正常，但在生产机就报错
3、程序是读取Excel文件，根据Excel记录条数确定执行次数，第一次肯定能过，第二遍循环的时候就报错了，具体位置是代码的倒数第二行，也就是有下划线的部分
不知什么原因，大家帮忙分析一下，网上查了，基本不对，以下是程序部分代码          With cmd
              .ActiveConnection = cn
              .CommandText = "select merch_id,mer_on_card from merchant where merch_id=?"
              .CommandType = adCmdText
              .Parameters.Append .CreateParameter("merch_id", adBSTR, adParamInput, 15, Mid(strErrFileName, 4, 15))
              .Prepared = True
           End With
           Set rsMerchant = cmd.Execute
           cmd.Parameters.Delete 0
以下是截图,各位达人帮忙