Sub connectAccess97()
Const MDB = "C:\...\...\...\comptoirs 97.mdb"
Dim con As ADODB.Connection, rs As ADODB.Recordset
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MDB & ";Jet OLEDB:System Database=system.mdw;"
con.Open
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM Clients;", con, adOpenDynamic, adLockBatchOptimistic
Debug.Print rs.RecordCount
rs.Close: Set rs = Nothing
con.Close: Set con = Nothing
End Sub