ник: Дрюня
вообще-то, должно хватить этого
но если есть открытые формы, то может быть такой трабл.
попробуй так на событие закрытия основной формы:
Private Sub Form_Unload(Cancel As Integer)
Dim k As Integer
On Error Resume Next
Do
Unload Forms.Item(Forms.Count - 1)
Loop Until Forms.Count = 1
Unload Me
cnn.Close
End Sub
|