I use this conn...

StringaDiConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NOMEDB & ";'"
Set OggettoConnessione = CreateObject("ADODB.Connection")
OggettoConnessione.Open StringaDiConnessione
Set OggettoRecordset = CreateObject("ADODB.Recordset")
Set OggettoRecordset = OggettoConnessione.Execute("SELECT * FROM " & FOGLIO & "")

in tabel have:
01/01/2005
12/12/2005
14/01/2008
...
31/03/2001



in a table have a filed named PRIOVA1 wherea are stiore dates.
How to extract the newest and oldest date from this filed and store the result in min_var=31/03/2001 max_var=14/01/2008?