主题：求教 代码执行效率问题

For Each dr1 As DataRow In DataTables("结果").DataRows
    Dim dr As DataRow
    dr = DataTables("配置").Find("[内容] like '*" & dr1("PON口") & " ont " & dr1("ONUID") & " gemport 1*'")
    If dr IsNot Nothing Then
        Dim nr() As String
        nr = dr("内容").split(" ")
        dr1("PVLAN") = nr(4)
        dr1("CVLAN") = nr(13)
    Else
        dr1("PVLAN") = Nothing
        dr1("CVLAN") = Nothing
    End If
Next

这段代码有问题吗？执行了5分钟。。。。。"结果"表格有5000行，"配置"表有4万行。