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

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