主题：[求助] 代码执行没有反应

老师，以下代码有问题吗 ？ 为什么执行时没有反应？ 死机了 ？

For Each dr1aa As DataRow In DataTables("TEST2").SQLSe lect("[FEntrySelfZ0142] is null")

    Dim cmd As new SQLCommand
    cmd.C
    Dim dt As DataTable
    cmd.CommandText = "Se lect * From {TEST3}"
    dt = cmd.ExecuteReader(True)
   
    Dim fdr As DataRow = dt.find("FInterID ='" & dr1aa("FInterID") & "'")
   
    If fdr  Is Nothing Then
        dr1aa("FEntrySelfZ0142") = fdr("FItemID")
    End If
    dt.Save()
Next

msgbox("done")