form1窗体中
Private Sub Text1_Change()
Frmzt.Show 1
End Sub

Frmzt窗体中
Private Sub DataGrid1_Click()
  Form1.Text1 = Adodc2.Recordset.Fields(0)
  Unload Me
End Sub

Private Sub Form_Load()
Option2.Value = True
End Sub

Private Sub Text1_Change()
Dim fivepen As String
Dim spell As String
 '如果没有选择部分信息，则退出
  If Text1.Text = "" Then
    Exit Sub
  End If
fivepen = "select medname,medspec,fivepen,spell from dbo.Medicine where fivepen like'" _
      & Text1.Text & "%" & "'"
spell = "select medname,medspec,fivepen,spell from dbo.Medicine where spell like'" _
      & Text1.Text & "%" & "'"
       If Option2.Value Then
       With Adodc2
       .RecordSource = fivepen
        .Refresh
        End With
        End If
         If Option1.Value Then
      With Adodc2
      .RecordSource = spell
      .Refresh
      End With
      End If
      '读取数据
        
End Sub


要在form1窗体中的文本框录入数据时弹出Frmzt窗体后，将Frmzt窗体中选中的数据赋值到form1窗体中的文本框中，但出现实时错误‘400
窗体已经打开，不能显示为有的模式的
不知错在哪？请各位帮个忙修改主，先谢了

错在将Frmzt窗体中选中的数据赋值到form1窗体中的文本框中时并返回form1窗体时出现错误信息，错误代码：Frmzt.Show 1，这样说清楚了吗？

[[it] 本帖最后由 jxawgyl 于 2008-7-19 08:06 编辑 [/it]]

是的，谢版主抽出时间看一下，

是的，谢版主抽出时间看一下，后我用：
Private Sub Txtmed_Change()
If Txtmed.Text = "" Then
Exit Sub
  End If
  Frmypcx.Hide
 Frmypcx.Visible = False
 Frmzt.Show
End Sub
但有个问题是，（Frmypcx.Hide）
Frmypcx窗体隐藏起来，录入第一次可以，录入第二次的话就不行连Frmzt窗体也隐藏了，不知原因，请帮看一下。

[[it] 本帖最后由 jxawgyl 于 2008-7-19 11:00 编辑 [/it]]

谢了版主，我按你说的：
Private Sub Txtmed_Change()
'需要调用Frmzt了
Dim oFrmzt As New Frmzt
'创建新的实例
oFrmzt.Show 1
'显示出来
MsgBox oFrmzt.Text1.Text
'获取数据，我这里用Msgbox

Unload oFrmzt
Set oFrmzt = Nothing
' 从内存中删除这个实例。名词叫释放。

End Sub
但是在点击DataGrid之后，不能关闭Frmzt窗体，并没有任何错误信息。
请再帮我看一下。

[[it] 本帖最后由 jxawgyl 于 2008-7-21 15:07 编辑 [/it]]

再顶下，希望版主能帮我解决。

Dim oFrmzt=New Frmzt
请解释