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=" & TextBox1.Text & ";" & _
                        "Database=" & TextBox2.Text & ";" & _
                        "Trusted_Connection=no;" & _
                        "User ID=" & TextBox3.Text & ";" & _
                        "Password=" & TextBox4.Text & ";"
                        
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


End Sub