VB和ACCESS导出数据问题

Question

Function GEN_ITEMBILL_TB(i As Integer, item As String)
    On Error GoTo errhandle
    Set AdoRs(i) = New ADODB.Recordset
    AdoRs(i).Open "select * from View_BILLOFMATERIAL where View_BILLOFMATERIAL.PARENT='" & item & "'", dbConnJet, adOpenStatic, adLockOptimistic
    
    
   '判断子项是否有下级子项记录
    If AdoRs(i).BOF And AdoRs(i).EOF Then '庑记录
        SqlStr = "insert into 原物料需求明细 values('" & ItemID & "','" & ItemName & "'," & Quantity(0) & ",'" & AdoRs(i - 1).Fields("COMPONENT") & "','" & AdoRs(i - 1).Fields("COMP_DESC") & "'," & Quantity(i - 1) & ",'" & i & "','" & AdoRs(i - 1).Fields("COMP_UM") & "'," & Round(AdoRs(i - 1).Fields("RL_MAT_CST"), 4) & "," & Round(Quantity(i - 1) * AdoRs(i - 1).Fields("RL_MAT_CST"), 4) & ")"
        dbConnJet.Execute SqlStr
    Else                                  '有记录
            While Not AdoRs(i).EOF
                Quantity(i) = Quantity(i - 1) * AdoRs(i).Fields("QUANTITY")
                GEN_ITEMBILL_TB i + 1, AdoRs(i).Fields("COMPONENT")
                AdoRs(i).MoveNext
            Wend
    End If
    Exit Function
errhandle:
    If Err.Number = 94 And i <> 1 Then
        SqlStr = "insert into 原物料需求明细 values('" & ItemID & "','" & ItemName & "'," & Quantity(0) & ",'" & AdoRs(i - 1).Fields("COMPONENT") & "','" & AdoRs(i - 1).Fields("COMP_DESC") & "'," & Quantity(i - 1) & ",'" & i & "','" & AdoRs(i - 1).Fields("COMP_UM") & "'," & Round(AdoRs(i - 1).Fields("RL_MAT_CST"), 4) & "," & Round(Quantity(i - 1) * AdoRs(i - 1).Fields("RL_MAT_CST"), 4) & ")"
        dbConnJet.Execute SqlStr        Exit Function
    End If
End Function
------------------------------------------------------------------------" & Round(AdoRs(i - 1).Fields("RL_MAT_CST"), 4) & "," & Round(Quantity(i - 1) * AdoRs(i - 1).Fields("RL_MAT_CST"), 4) & ")"
这两个数是我想后来加进去的，查询View_BILLOFMATERIAL能够显示数据，但就是插到表里就不能显示
请帮我看看是哪里出了问题，谢谢了