请教，窗体显示但是不能操作？？？急啊！！！！

VIV777 2007-05-12 09:24:27

private sub aaa()
ConnectString = "Provider=SQLOLEDB.1;Data Source=.;User ID=sa;Password=123;Initial Catalog=modem;Persist Security Info=True"
Set cnn = New ADODB.Connection
cnn.Open ConnectString
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "select * from message_info where send_state='1'and morder='发送数据'and deletemode<>'1'", cnn, adOpenDynamic, adLockOptimistic
If rs.EOF Or rs.BOF Then
Exit Sub
Else
While Not rs.EOF
mstopdate = rs!stopdate
msendno = rs!send_no
mpage = rs!Page
If DateDiff("d", Date, mstopdate) <= 3 Then
msg = MsgBox("手机号为" & mmsendno & "的号码" & mpage & "页截止日期" & mstopdate & "将到，还剩" & DateDiff("d", Date, mstopdate) & "天", vbYesNo + vbInformation, "提示")
If msg = vbYes Then
msg2 = MsgBox("确定在截止日期为" & mstopdate & "删除?", vbYesNo + vbQuestion, "是否删除")
If msg2 = vbYes Then
mdeletemode = 1
rs!deletemode = mdeletemode
rs.Update
Else

End If
Else
frmShowdate.ZOrder 0
frmShowdate.Show
rs!stopdate = mmstopdate
rs.Update
End If
End If
rs.MoveNext
Wend
End If
rs.Close
end sub

下面这个是frmShowdate的代码
Private Sub Command1_Click()
mmstopdate = DTPicker1.Value
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub
里面只有Command1 、Command2、 DTPicker1这三个控件
设置断点时走到frmShowdate.ZOrder 0
frmShowdate.Show
这一步，frmShowdate窗体显示，但是无法对它进行操作，我想通过操作frmShowdate窗体得到mmstopdate的值，可是直到aaa这段函数结束后才能对frmShowdate窗体进行操作，请问一下这个问题我该如何解决啊？

...全文