主题：[求助] 出错了

老师，增加了以下黄色的，就出现错误了，请指导一下，谢谢。

For Each r As Row In Tables("PriceNew")
    
    If r IsNot Nothing Then
        Dim ld As String
        Dim cmd As New SQLCommand
        cmd.C
       
        cmd.CommandText = "Se lect top 1 Fname,FItemID From {t_ICItemCore} Where FNumber = '" & r("PartNo") & "'"
        ld = cmd.ExecuteScalar()
       
        If LD IsNot Nothing Then
            r("PartDesc") = ld
            r("FItemID") = ld

        Else
           
            r("PartDesc") = "无记录"
           
        End If
    End If
Next