collection binding

Bonjour,

voici le code qui me pose problème:

Code:

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
Option Explicit
Dim cn As ADODB.Connection
Dim bndNums As BindingCollection
Private WithEvents rsNum As ADODB.Recordset
 
 
Private Sub form_load()
    Dim SQL As String
    Dim strConnex As String
    Dim i As Integer
        Set cn = New ADODB.Connection
        Set rsNum = New ADODB.Recordset
 
    strConnex = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Data\Time2005.mdb"
 
    SQL = "select * From Repertoire"
 
    cn.Open strConnex
 
    rsNum.CursorLocation = adUseClient
 
    rsNum.Open SQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
 
    Set DataList1.RowSource = rsNum
 
    DataList1.ListField = rsNum.Fields(1).Name
 
    Set bndNums.DataSource = rsNum
 
    With bndNums
 
        .Add TxtNumeros(0), "Text", "N°", , "Numero" 
        .Add TxtNumeros(1), "Text", "Nom", , "Le Nom"
        .Add TxtNumeros(2), "Text", "Departement", , "Département"
End With
 
End Sub

Voici le problème:

A l'exécution j'ai ce message d'erreur sur la ligne

Code:

Set bndNums.DataSource = rsNum

Voici le message:

Run-time error '91'
objet variable or with block variable not set

Pouvez-vous m'aider à resoudre cette difficulté

D'avance merci à tous.