Réponse acceptée !
Tiens j'ai oublié de posté ma solution .....
Je le fait de suite

---

'Références à ajouté :
'   Microsoft ActiveX Data Objects 2.x Library
'   Microsoft OLE DB Service Component 1.0 Type Library.

Dim cn As ADODB.Connection

Private Sub Command1_Click()
    Dim MSDASCObj As MSDASC.DataLinks
    Set MSDASCObj = New MSDASC.DataLinks
    'Set cn = New ADODB.Connection
    Set cn = MSDASCObj.PromptNew
    'If  Then
    If Not cn Is Nothing Then
        cn.Open
        If cn.State = adStateOpen Then
            MsgBox "Connection opened successfully"
            cn.Close
        End If
    End If
End Sub

---

Ce n'est pas forcément la solution idéale de mon point de vue mais déjà pas mal (et ça fonctionne)

Amicalement
Pensez "Réponse acceptée"