[5分]BOM递归运算出错，insert into 语句的语法错误

当运行时，提示

insert into 语句的语法错误

Sub Calc21(ByVal pid As Long, ByVal s As Double, ByVal num As String)
    'BOM递归计算
    Dim ssql As String
    Dim rs As New ADODB.Recordset
    Dim i As Long
    Dim str As String
    ssql = "select * from BOM表 where 产品编码=" & pid
    rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 1 To rs.RecordCount
        ssql = "insert into TempBOM表 (产品编码,子件编码,子件层级,消耗量) "
        ssql = ssql & "values (" & rs!产品编码.Value & ","
        ssql = ssql & rs!子件编码.Value & ",'"
        If num = "" Then
            str = i
        Else
            str = num & "." & i
        End If
        ssql = ssql & str & "',"
        'ssql = ssql & s * rs!单耗.Value & ")"
       ssql = ssql & s * rs!单耗.Value * (1 + Nz(rs!损耗率.Value, 0)) & ")"
         CurrentDb.Execute ssql
       
        'Call Calc2(rs!子件编码.Value, s * rs!单耗.Value, str)
        Call Calc21(rs!子件编码.Value, s * rs!单耗.Value * (1 + Nz(rs!损耗率.Value, 0)), str)
        rs.MoveNext�������ش˸���
    Next
    rs.Close: Set rs = Nothing
End Sub

其中 Debug.Print ssql

提示 请看附件