两个窗口的Show与Unload me退出后程序没有真正结束 达人来 送分解决办法

两个窗口的Show与Unload me退出后程序没有真正结束 达人来 送分
窗体1   FrmLogin

Private   Sub   Form_Load()
If   Adodc1.Recordset.RecordCount   >   0   Then
......
Else
Unload   Me
FrmAddUser.Show
End   If
End   Sub

窗体2   FrmAddUser

Private   Sub   Form_Unload(Cancel   As   Integer)
FrmUser.Adodc1.Refresh
If   FrmUser.Adodc1.Recordset.RecordCount   >   0   Then
Unload   Me
FrmLogin.Show
Else
End
End   If
End   Sub

Private   Sub   Command2_Click()
Unload   Me
End   Sub

以上程序运行正常，但如果FrmLogin.Show点FrmLogin.Show的关闭程序并没有真正结束，请问是怎么回事？谢谢。

PS:FrmLogin不能添加Form_Unload的End，因为这是登陆窗口，还要调用别的窗体.


[解决办法]
For i = 0 To Forms.Count - 1
Unload Forms(i)
Next i