添加数据问题

在运行以下代码时出现：在for=1（提取第一个excel工作簿对应表数据，即提取：bgrq）时运行正常，但在for=2时（提取第二个excel工作簿对应表数据，即提取：bgrq）时，提示“#5 无效的过程调用或参数”，无法完成添加任务。望老师指教，谢谢！！

 For i = 1 To 10

TableName = "产品明细表"

strFileName =cpbm（字符串型）    ‘i=1时为“000120”，i=2时为“000121”’

bgrq=从for的变数对应的excel表提取的时间数据（字符串型）

 bgrqz = CDate(bgrq)

 strlq = "INSERT INTO " & TableName & "(产品代码,报告日期)" _
                           & "SELECT '" & strFileName & "',#" & bgrqz & "#;"
  DoCmd.RunSQL strlq
 Next i