Code: Select all
Dim MIO_ARRAY_FESTE () as Variant
Sub ARRAY_FESTIVI()
SQL = "SELECT DATE FROM FESTIVI"
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
RS.Open SQL, CNN, adOpenForwardOnly, adLockReadOnly
RS.Sort = ("DATE")
RS.MoveFirst
Erase MIO_ARRAY_FESTE()
MIO_ARRAY_FESTE = RS.GetRows()
RS.Close
Set RS = Nothing
End Sub