ADODB Connection

Option Explicit
Option Compare Text
Const Chemin = "\\Ordi237\Rebond$\"
Const BaseMDB As String = "BddRebond.mdb"

Private Sub UserForm_initialize()
' Initialisation de la userform

Dim Conn As New ADODB.Connection
Dim Rst As New ADODB.Recordset

On Error GoTo Fin

ListBoxListCamp.Clear
[COLOR="Red"]'''Conn.Open    '???[/COLOR]
' Chargement de la liste des raquettes de la base
Conn.Open "Provider='Microsoft.Jet.OLEDB.4.0';" & "Data Source='" & Chemin & BaseMDB & "';"
Rst.Open "SELECT * FROM [BoundHeight] ORDER BY [TestCode]", Conn, adOpenKeyset, adLockOptimistic, adCmdTableDirect

Rst.MoveFirst
Do Until Rst.EOF
    ListBoxListCamp.AddItem (Rst.Fields("TestCode"))
    Rst.MoveNext
Loop

Fin:
[COLOR="Blue"]If Err <> 0 Then MsgBox Err.Number & vbCrLf & Err.Description '///ajout[/COLOR]
    Conn.Close
    Set Rst = Nothing
    Set Conn = Nothing
End Sub