Connectivité entre serveur SQL et VBA

Question

Je ne parviens pas à établir une connexion entre le serveur SQL et un formulaire VBA. Il est lancer l'erreur suivante

d'erreur du compilateur: type défini par l'utilisateur non défini

Voici le code avec les détails du serveur:

Private Sub CommandButton1_Click() 
    Dim cnn As ADODB.Connection 
    Dim cnn As ADODB.Command 
    Set cnn = New ADODB.Connection 
    Set cnn = New ADODB.Command 
    cnn.Open "Provider=sqloledb;" & _ 
      "Data Source=<IP>;" & _ 
      "Initial Catalog=<DB>;" & _ 
      "User Id=<USER>;" & _ 
      "Password=<PASS>" 
    MsgBox "connection successful" 
    cnn.Close 

End Sub 

Answer 1

Vous devez ajouter une référence à Microsoft ActiveX Data Objects X.X Library où XX est l'ADO version.

Vous obtiendrez alors une erreur sur votre deuxième ligne parce que vous essayez de re-déclarer votre variable cnn.