主题：[求助]代码执行奇慢

老师，你好！有如下代码，连接局域网数据库开发环境，开发过程没有感觉慢，今天将数据库放到远程，执行起来特别慢，200行数据，需要10秒钟左右。

With Tables("入库明细表")
    .StopRedraw
    For Each dr1 As DataRow In DataTables("产品目录").sqlSelect("[停产] = 0 or [停产] is null")
        .AddNew()
        .Current("日期") = da
        .Current("批号") = sfz
        .Current("产品代码") = dr1("产品代码")
        Dim ph As String =  Right( sfz ,14)
        Dim bh As String = "RK" & ph & "-" '生成编号前缀
        Dim max As String
        max = DataTables("入库明细表").SQLCompute("Max(入库单号)","批号 = '" & sfz & "' ")
        Dim idx As Integer
        If max > "" Then '如果存在最大单据合同编号
            idx = CInt(max.Substring(bh.length,4))+ 1 '获得最大编号的后四位顺序号,并加1
        Else
            idx = 1 '否则顺序号等于1
        End If
        .Current("入库单号") = bh & Format(idx,"0000")
    Next
    .ResumeRedraw
End With

麻烦老师帮忙看看，哪里有问题？谢谢！