主题：关于死循环问题

Do While bsz("标识") = "G"

    If bsz("标识") = "B"
        sqlqtu.text = "正在连接数据源,请稍后....  "

Application.DoEvents '如果不行还是参考上面用多线程处理
    ElseIf bsz("标识") = "E"
        Exit Do
    End If
Loop