Private Sub CommandButton1_Click()

'Déclaration de la variable de connexion

Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection

'Définition de la chaîne de connexion
     
cnx.ConnectionString = "Driver={SQL Native Client};" & _
                        "Server=monServeur;" & _
                        "Database=maDatabase;" & _
                        "Trusted_Connection=no;" & _
                        "User ID=monUtilisateur;" & _
                        "Password=monMotDePAsse;"
Debug.Print cnx
cnx.Open

MsgBox "Connexion au serveur et à la base Réussie"

'Déclaration du jeu d'enregistrement

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

'Définition de la requête

rs.Source = "select * from proprietaire"

'Exécution de la requête

rs.Open , cnx

ListBox1.Clear

'Aller sur le premier enregistrement

temp1 = "champ1 - Champ2 - champ3"

'Parcourir le jeu d'enrefistrement
Do Until rs.EOF
    tmp = rs.Fields.Item(0) & " - "
    tmp = rs.Fields.Item(1) & " - "
    tmp = rs.Fields.Item(2)
    ListBox1.AddItem (tmp)
    
    'Aller sur l'enregistrement suivant
    rs.MoveNext
Loop


rs.Close
cnx.Close

End Sub