如何关闭窗体

目的：当点窗体1的文本框时弹出另外一窗体2（frm)，并将此窗体2中选中的数据赋值到第一窗体1中的文本框中，同时关闭这个窗体2
我用：窗体1的文本框
Private Sub Text2_Change()
'需要调用Frm了
Dim oFrm As New frm
'创建新的实例
oFrm.Show 1
'显示出来
MsgBox oFrm.Adodc1.Recordset.Fields(0)
'获取数据，我这里用Msgbox
Unload oFrm
Set oFrm = Nothing ' 从内存中删除这个实例。名词叫释放。
End Sub
窗体2
Private Sub DataGrid1_Click()
Form1.Text2 = Adodc1.Recordset.Fields(0)
Unload frm
End Sub
运行结果是
点窗体1的文本框时弹出窗体2（frm)，并将此窗体2中选中的数据赋值到第一窗体1中的文本框中时，又弹出一个窗体2，并不能同时关闭这个窗体，请各位帮个忙查一下原因。

搜索更多相关主题的帖子: frm 内存 窗体 文本 Sub

换成Text1_Click()

谢了，但还是不能同时关闭窗体2