应用程序使用错误类型的值作为当前位置

Question

我试图将参数追加到我的sql表中。显然我收到错误消息为＆＃34; Applicaton使用错误类型的值作为当前位置＆＃34;在下面的代码中。我不知道我哪里出错了。如果我可以围绕最终值，是否有可能？

 If .Cells(2, counter) = "" Then LAWYERS_ATTORNEYS_AUDITED = 0 Else
Set param = objMyCmd.CreateParameter("@LAWYERS_ATTORNEYS_AUDITED", adNumeric, adParamInput)
     param.Precision = 18
     param.NumericScale = 2
     param.Value = .Cells(2, counter)
     objMyCmd.Parameters.Append param
counter = counter + 1