Public Sub New()
    InitializeComponent()
    
    CaricaMesi(2009)
End Sub
Private Sub CaricaMesi(ByVal anno As Integer)
    For i As Integer = 1 To 12
        Dim m As New Mese(anno, i)
        listBox1.Items.Add(m)
    Next
End Sub

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim m As Mese = Nothing
    
    If listBox1.SelectedIndex <> -1 Then
        m = DirectCast(listBox1.SelectedItem, Mese)
        
        
        MessageBox.Show("è stato selezionato il periodo " & m.ToString())
        
        Dim sql As String = "SELECT ClientiFattura.*, TestaFattura.NrFattura, TestaFattura.Data, TestaFattura.Pagamento, TestaFattura.Banca, TestaFattura.Agenzia,TestaFattura.CodCliente, TestaFattura.Piva AS Expr1, TestaFattura.TotaleNolo, TestaFattura.TotaleDirittoFisso, TestaFattura.TotaleDirittoAssegno,TestaFattura.TotaleDirittoAssicurazione, TestaFattura.TotaleVarie, TestaFattura.TotaleImponibile, TestaFattura.Iva, TestaFattura.TotaleImposta,TestaFattura.TotaleNonImponibile, TestaFattura.TotaleParziale, TestaFattura.TotaleAnticipate, TestaFattura.TotaleBollo, TestaFattura.SpeseIncasso,TestaFattura.TotaleFattura, TestaFattura.TotaleLire, TestaFattura.Cliente AS Expr2, TestaFattura.Cliente2, TestaFattura.Indirizzo AS Expr3,TestaFattura.Cap AS Expr4, TestaFattura.Localita AS Expr5, TestaFattura.Provincia, TestaFattura.Indirizzo2, TestaFattura.Cap2, TestaFattura.Localita2, TestaFattura.Pv2, TestaFattura.[ca-codes], TestaFattura.[ca-deses__1], TestaFattura.[ff-altre__7], TestaFattura.[ff-altre__20],TestaFattura.[ff-altre__21]FROM TestaFattura INNER JOIN ClientiFattura ON TestaFattura.CodCliente = ClientiFattura.Cliente INNER JOIN Claus ON ClientiFattura.Cliente = Claus.[ca-cd]" & " WHERE(Claus.[ca-listi] = N'1')" & "   AND MONTH(TestaFattura.Data) = {0}" & "   AND YEAR(TestaFattura.Data) = {1}" & "   AND (TestaFattura.TotaleFattura > 50.00000)" & "   AND ORDER BY TestaFattura.Data"
        
        sql = [String].Format(sql, m.NumMese, m.Anno)
        
        MessageBox.Show("ecco la nuova query: " & sql)
    Else
        MessageBox.Show("non è stato selezionato alcun periodo!")
    End If
End Sub