点击text后弹出frmzt窗体，并双击frmzt窗体中的数据保存到text文本框中做为查询的条件
text的语句：
Dim medname_sql As String  '声明变量，用来保存SQL语句字符串
  '如果没有选择部分信息，则退出
  If Txtmed.Text = "" Then
    Exit Sub
  End If
  'DataCombo2.BoundText是当前选择部门编号，
  '以此编号设置SQL语句，读取此部门中的所有病人信息
  medname_sql = "select offname,hoscode,patname,medname,medspec,roomunit,roomprice,number,selfallmoney,sendopecode,exectime,intime from AdviceListView where  roomcode=2000 and sendopecode>0 and medname like '" _
           & Txtmed.Text & "%" & "' order by exectime desc"

  With Adodc1
  .RecordSource = medname_sql
  .Refresh
  End With
 Frmmzt.Show 1  是不是这样写
  TreeView1_Click
End Sub
请查一下。

能说清楚吗

弹出窗体现在搞好了，但是如何使双击Frmmzt窗体的数据添加到文本框中。请再看一下。

不好意思，但我不知如何写，在frmmzt中有个文本文件和DataGrid控件，在文本框中输入查询条件后，在DataGrid控件单击查询要的数据，显示到文本框中，双击时自动显示到另外窗体Frmypcx中和tetmed文本框中并关闭frmmzt窗体。能帮我写一下吗？

不对，我加上：
 With Txtmed.Text = Frmzt.Text1.Text
出现提示：with对象必须为用户定义类型。对象或变体
要如何解决？

可否给点提示？

还是没有人回答，只好自己顶上，希望有人能帮我解决这个问题