主题：代码求助

Dim cmd As New SQLCommand

For Each r As Row In Tables("滑道构成_Table3").Rows
    If r IsNot Nothing Then
        For i As Integer = 1 To r("amount")
            cmd.commandtext ="Insert Into {part} ([partNo],[gelcoatColor],[backColor],[thickness],[thickness2],[area],[size],[drawingNo],[partTemplateId],[productId],[remark],[model],[state]) " & _
            "Values( '" & r("partNo") & "','" & r("gelcoatColor") & "','" & r("backColor") & "','" & r("thickness") & "', '" & r("thickness2") & "," & _
            "'" & r("area") & "','" & r("size") & "','" & r("drawingNo") & "','" & r("partTemplateId") & "','" & r("productId") & "','" & r("remark") & "','" & r("model") & "','ll')"
            output.show(cmd.CommandText)
            cmd.ExecuteNonQuery
        Next
    End If
Next

Dim cmd As New SQLCommand

For Each r As Row In Tables("滑道构成_Table3").Rows
    If r IsNot Nothing Then
        For i As Integer = 1 To r("amount")
            cmd.commandtext ="Insert Into {part} ([partNo],[gelcoatColor],[backColor],[thickness],[thickness2],[area],[size],[drawingNo],[partTemplateId],[productId],[remark],[model],[state]) " & _
            "Values( '" & r("partNo") & "','" & r("gelcoatColor") & "','" & r("backColor") & "','" & r("thickness") & "', '" & r("thickness2") & "'," & _
            "'" & r("area") & "','" & r("size") & "','" & r("drawingNo") & "','" & r("partTemplateId") & "','" & r("productId") & "','" & r("remark") & "','" & r("model") & "','ll')"
            output.show(cmd.CommandText)
            cmd.ExecuteNonQuery
        Next
    End If
Next