Dim MyData As Date
        For Each MyItem As ListViewItem In ListView2.Items
            If MyItem.Checked Then
                MyData = MyItem.SubItems(1).Text
                strSQL = "SELECT Servizi.IDAnagrafica,[...]"
                " FROM(Servizi)where Servizi.Al < #" & Date.Parse(MyData) & "# GROUP BY Servizi.IDAnagrafica"