采购订单的报错，请高手指教一下，万分感谢！！！！

请教一下，采购订单加了一个插件当自定义的单元格改变时 多插入几行记录，但插入第二行时报错：
金蝶提示 GetData Error: Srource:[(3770) KEE_K3BILLS]下载越界
请高手指教一下，万分感谢！！！！

Private Sub m_BillTransfer_LeveCell(ByVal Col As Long, ByVal Row As Long, ByVal NewCol As Long, ByVal NewRow As Long, Cancel As Boolean)
' MsgBox " Col:" & Col & " Row:" & Row & " NewCol:" & NewCol & " NewRow:" & NewRow
Dim lngTXMIndex As Long '自定义的条形码 FEntrySelfP0261
Dim strTXM As String
Dim lngMaxRows As Long
Dim lngFitemIDIndex As Long
Dim lngFItemID As Long
Dim strSql As String
Dim rs As ADODB.Recordset
Dim obj As Object
Dim i As Long

On Error GoTo Err:
Set obj = CreateObject("K3Connection.AppConnection")

' lngMaxRows = m_BillTransfer.Grid.MaxRows
lngFitemIDIndex = GetFieldColIndex("FItemID", False)
lngTXMIndex = GetFieldColIndex("FEntrySelfP0261", False)
If Col = lngTXMIndex Then
strTXM = Trim(m_BillTransfer.GetGridText(Row, lngTXMIndex))
lngFItemID = Val(m_BillTransfer.EntryCtl(lngFitemIDIndex).DInterID(Row))

If strTXM <> "" And lngFItemID = 0 Then ''如果此行已有商品 不再处理
strSql = " Select FNumber From t_ICitem Where F_116='" & strTXM & "' "

Set rs = obj.ExecuteRaiseErr(strSql)
For i = 0 To rs.RecordCount - 1
MsgBox "FNumber:" & rs!FNumber
m_BillTransfer.SetGridText Row + i, lngFitemIDIndex, rs!FNumber

rs.MoveNext
Next i

End If

End If

Set rs = Nothing
Set obj = Nothing
Exit Sub

Err:
Set rs = Nothing
Set obj = Nothing
Err.Raise Err.Number, "InterFace.m_BillTransfer_LeveCell", Err.Description

End Sub