Bj Aidez moi SVP....
Est ce que c Juste...?
Public oConn As ADODB.Connection
Dim connString As String
Public Sub connect()
On Error Resume Next
'Initialisation de la chaîne de connexion
connString = "Provider=MSDASQL.1;User ID=" & hamdi & ";Password=" & version1 & ";Persist Security Info=False;Data Source=" & Application & ""
'Création de l'objet connection
Set oConn = New ADODB.Connection
oConn.ConnectionString = connString
'Ouverture de la connexion
oConn.Open
End Sub