主题：关于死循环问题

我想在 AfterOpenProject 里做一个死循环，让进程跟着Tables("标识").的标识列走

总的有A/B/C/D/E/F/G

如果当“标识”列为"B"时Forms("启动连接").Controls("Label2")显示"正在连接数据源,请稍后....  " ，当“标识”列为"E"时退出死循环。

Dim sqlqtu As WinForm.Label = Forms("启动连接").Controls("Label2")

Dim bsz As Row = Tables("标识").Current
Dim pf As String
Do While bsz("标识") = "G"

    If bsz("标识") = "B"
        sqlqtu.text = "正在连接数据源,请稍后....  "
    ElseIf bsz("标识") = "E"
        Exit Do
    End If
Loop

不知道为什么不行，请帮我改改