Salut DraaFil
Perso, j'utilise, pour une base Access (.mdb)
Il faut ajouter la référence "Microsoft ActiveX Data Objects 2.8 Library" (system32/msado15.dll)
Public Conn1 As ADODB.Connection
Dim AccessConnect As String
AccessConnect = "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=" & file & ";" & _
"Uid=Admin;Pwd=;"
On Error GoTo AdoError ' Full Error Handling which traverses Connection object
If Conn1 Is Nothing Then Set Conn1 = New ADODB.Connection
If Conn1.state <> 0 Then
Conn1.Close
End If
Conn1.Open AccessConnect
...
Puis pour faire une requête:
Dim rs1 As New ADODB.Recordset
request = "SELECT ... FROM ..."
Set rs1 = Conn1.Execute(request)
While Not rs1.EOF
elem = rs1(col_name) ' le nom de la colonne
ou
elem = rs1(0) ' ou 1, 2, 3.. selon la colonne que l'on veut
rs1.MoveNext
Wend
En espérant que ça t'éclaire...
Dugh
go gO GO !!