J'aissai d'ajouter un objet dans une classe avec le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Option Explicit
 
 
 
Public WithEvents CButton As MSForms.CommandButton
 
'Exemple pour gérer l'évènement clic sur les objets type Button
Private Sub CButton_Click()
    'cet exemple affiche le nom et la valeur de l'objet cliqué
    'MsgBox CButton.Name & ": " & CButton.Name
    saisi.Label6.Caption = "Opération " & CButton.Caption
 
    Dim requetteSQL As String
    Dim rst As New ADODB.Recordset
 
    requetteSQL = "SELECT information.idInformation,information.libelle,information.obligatoire,information.unite,information.defaut,information.min,information.max,information.typeinfo " _
    & " FROM necessiteremontee,information " _
    & " WHERE numOperation = '" & CButton.Caption & "' " _
    & " AND information.idInformation = necessiteremontee.idInformation  ;"
 
    Dim conn As ADODB.connection
    Set conn = connection
 
    rst.Open requetteSQL, conn
 
    Dim Obj As Control
    Dim i As Integer
 
 
    Dim Glabel As gere_event_label
    Set Glabel = New gere_event_label
 
    While Not rst.EOF
        Set Obj = saisi.Frame3.Controls.Add("forms.Label.1")
        With Obj
            .Name = "LabelInfo" & rst.Fields("idInformation")
            .Caption = rst.Fields("libelle")
            .Left = 35
            .Top = 25 * i + 40
            .Width = 80
            .Height = 20
        End With
 
 
        'ajout de l'objet dans la classe
        Set Glabel.CLabel = Obj
        CollectLabel.Add Glabel
 
        rst.MoveNext
        i = i + 1
 
    Wend
 
    rst.Close
 
End Sub
L'execution s'arrête à la ligne CollectLabel.Add Glabel. Il me dit erreur 91, Variable objet, ou variable de bloc with non défini...

Je ne comprends vraiment pas d'ou peut venir le problème. J'ai pourtant bien le début et la fin de mon with. Je précise que si je commente la ligne en question, tous marche.

Auriez vous une idée ou une piste pour résoudre ce problème ?

Merci !