.... risolto così.. è giusto? o c'è qualche soluzione migliore?

codice:
Dim rslistacorsi
Set rslistacorsi = Server.CreateObject("ADODB.Recordset")
rslistacorsi.Open "SELECT * FROM DateCorsiOK WHERE DataFineCorso > #" & Date() & "# order by DataInizioCorso", dbc, 3, 3
...come diceva optime... non devo farmi prendere da panico e frenesia