Sub LectureAccess()
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E_donnees.mdb"
StartDate = Format(Cells(1, 2), "mm/dd/yyyy")
EndDate = Format(Cells(2, 2), "mm/dd/yyyy")
VCmd = "(((Stoxx.date)>#" & StartDate & "# And (Stoxx.date)<#" & EndDate & "#))"
Set rs = cnn.Execute("SELECT * FROM Stoxx WHERE " & VCmd & " ORDER BY date")
Range("A4").CopyFromRecordset rs
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub