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