主题：暂停代码后怎么继续执行

Dim r As Row = Tables("挂号数据库").AddNew()
Forms("模糊查询").Open
If r("姓名") = "" Then
    Return
Else
    Dim rs As Row = Tables("处方抓药数据表").AddNew()
    Dim rc As Row = Tables("采集病症数据库").AddNew()
    Dim rf As Row = Tables("病证分析数据库").AddNew()
    If r IsNot Nothing Then
        rs("挂号号码") = r("挂号号码")
        rc("挂号号码") = r("挂号号码")
        rf("挂号号码") = r("挂号号码")
        rs("姓名") = r("姓名")
        rc("姓名") = r("姓名")
        rf("姓名") = r("姓名")
        rs("固定编号") = r("固定编号")
        rc("固定编号") = r("固定编号")
        rf("固定编号") = r("固定编号")
    End If
   End If

在打开模糊查询窗口后暂停执行下面的代码，等我选好名字后再向下执行应该怎么写代码？怎么让窗口中的关联表的文本框做到同步显示当前选择行呢？

代码在挂号数据库中的窗口中，挂号按钮，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:蒋大夫.rar

多谢C总指点，

如果想关联表即时显示，增加行代码为：Tables("挂号数据库.处方抓药数据表").AddNew()

这样还是不能即时显示，我现在用代码上移一行，再下移一行。这样就可以了，就是绕的有点远。也不知道会不会出问题