Ciao. Scusami ma non ti ho risposto perchè sono stato via tutta la settimana.

Anche se non credo di aver capito precisamente, ho provato comunque a moficare la procedura:
codice:
Dim MyData As Date
Dim Cont1 As Byte
Dim MySQL

If Periodo1 <= Periodo2 Then
  MyData = Periodo1
  For Cont1 = 1 To (Abs(DateDiff("d", Periodo1, Periodo2) + 1))
    MySQL = "SELECT Cognome,Nome,Citta,Provincia " & _
            "FROM Portafoglio where " & CStr(DataEsito) & _
            ">= '" & CStr(MyData) & "' and " & CStr(DataEsito) & _
            "<= '" & CStr(Periodo2) & "' ORDER BY Citta"
    MyData = DateAdd("d", 1, MyData)
    MsgBox MySQL
  Next Cont1
End If
Ho migliorato la situazione ?