Moi, des bêtises ?

Bonjour tout le monde,

Ben c'est quoi que j'ai glandé ?
Parfois, quand je ferme le formulaire de mon application en mode de test
sous VB, au lieu de revenir proprement dans l'environnement de
développement comme d'habitude, je perds carrément le contrôle, avec
deux processus VB et un de mon application d'ouverts, et je suis obligé
de fermer l'un des processus à l'aide du gestionnaire de tâches, ce qui
ferme les trois ensemble. Au bout de trois ou quatre fois j'étais bien
dressé, j'avais fait une sauvegarde avant de lancer l'exécution.

Il m'a été proposé d'envoyer un compte-rendu à Microsoft, ce que j'ai
fait une fois, j'espère que je ne leur ai pas refilé à moudre un grain
moisi ...

Le formulaire comporte un WebBrowser.
C'est vrai qu'une autre application avec un WebBrowser un jour avait
fait un caprice (ne voulait carrément pas se lancer), mais d'autres
fonctionnent très bien.

Il faut quoi pour s'y retrouver ? Form_Unload ?

Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
End Sub

La base a été ouverte dans Form_Load

Private Sub Form_Load()
Set DB =
DBEngine.OpenDatabase("C:\...(chemin)...\VB\Navigation\FavorisNav.mdb")
MajNb 'voir plus loin
End Sub

et bien sûr déclarée au niveau module, en plus d'une déclaration API

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Dim DB As Database



Sur cette base j'ouvre un jeu d'enregistrements et je le referme dans la
même procédure, comme par exemple là :

Private Sub MajNb()
Dim Rs As Recordset
Set Rs = DB.OpenRecordset("FavorisNav")
lblNbBase.Caption = Str$(Rs.RecordCount)
Rs.Close
Set Rs = Nothing
lblNb.Caption = Str$(ListView1.ListItems.Count)
End Sub

En ai-je dit assez ?

J'ai fermé le formulaire avec la petite croix rouge en haut à droite.