vb 一个窗体多次打开求解决

--------------------编程问答-------------------- 在线等谢谢大家帮我解决 --------------------编程问答-------------------- 每个按钮中的代码都改写成这个样子：



Option Explicit



Private Sub Command1_Click()

    Dim frmObj As Form

    Set frmObj = New Form1

    frmObj.Show

End Sub

不要用全局变量f --------------------编程问答-------------------- 我的QQ 是 6547003 Veron_04 可以加加吗》 --------------------编程问答-------------------- 没有明白你要的什么返回值啊，你重新定了form2,重新调用了f.datalist
你想得到什么呢？ --------------------编程问答-------------------- 1.我打开  form2 了
2.我在FORM2 打开 form3
Private Sub add_Click()
  form3.show 1
End Sub
3.form 是添加记录的
Private Sub addok_Click()
  dim rs as new adodb.recordset
  rs.open "select from tab",conn,1,3
  rs.addnew
  rs.update
  rs.close
  set rs = nothing
f.datalist  '//form2的这个不更新添加的记录
unload me
End Sub
--------------------编程问答-------------------- 1.就是form2 打开多少个

2.在form2 打开FROM
Private Sub add_Click()
  form3.show 1
End Sub

3.form3 添加成功后  调用form2 的 datalist
Private Sub addok_Click()
  dim rs as new adodb.recordset
  rs.open "select from tab",conn,1,3
  rs.addnew
  rs.update
  rs.close
  set rs = nothing
f.datalist '//form2的这个不更新添加的记录
unload me
End Sub

--------------------编程问答-------------------- Private Sub add_Click()
  form3.show 1
'---
在这里重新调用显示数据的函数
End Sub --------------------编程问答-------------------- 是的就是在这里 --------------------编程问答-------------------- clear_zero 你QQ多少  加下你我的是6547003 --------------------编程问答-------------------- 在线在等 --------------------编程问答-------------------- 你有什么就在这问吧 --------------------编程问答-------------------- 一.Module1类代码
Public newfrm As New Form2
二.Form1代码 ----------------一个Command1
Private Sub Command1_Click()
Set newfrm = New Form2
newfrm.list1
newfrm.Show
End Sub
三.Form2代码 ----------------2个Command1 Command2  一个Textbox

Private Sub Command1_Click()
'Dim newfrm As Form2
Set newfrm = New Form2
list1
newfrm.Show 1

End Sub

Private Sub Command2_Click()
Form3.Show 1
End Sub

Public Sub list1()
newfrm.Text1.Text = Now()
End Sub
四.Form3代码 ----------------1个Command1
Private Sub Command1_Click()
'Set newfrm = New Form2
newfrm.list1
Unload Me
End Sub

1.在form1 打开 form2, 这时候form2是第一层

2.form2 第一层在form2点Command2_Click 打开form3 在点from3的Command_Click 可以newfrm.list1把时间更新到 form2的.text1文本框

问题：
1.在form2 第一层点按钮Command1  ,又打开一个form2 这个是第二层了
2.在把第二层form2给关闭了，是不是第一层的form2 还在那在点第一层的from2 的Command2_Click 打开form 打开form3 .,在点在点from3的Command_Click 不可以newfrm.list1把时间更新到 form2第一层的.text1文本框了

不知道怎么回事  望各位帮忙解决是不是我的方法用错了  有什么好的办法

补充：VB ,  基础类