Connection.Open()
        Dim sda As New MySqlDataAdapter("Select Articoli_consistenze.CodArt,Articoli_consistenze.Anno,Articoli_consistenze.PrezzoAcquisto,Articoli_consistenze.Quantita," & _
                                        "Min(Distinct Articoli_consistenze.DataAcquisto) As DataAcquisto" & _
                                        " From Articoli_consistenze" & _
                                        " Where Articoli_consistenze.CodArt = '000000111'" & _
                                        " Group By Articoli_consistenze.CodArt, Articoli_consistenze.Anno,Articoli_consistenze.PrezzoAcquisto,Articoli_consistenze.Quantita" & _
                                        " Having Articoli_consistenze.Quantita > 0" & _
                                        " Order By Min(Distinct Articoli_consistenze.DataAcquisto) Limit 1", Connection)
        sda.Fill(ds)
        If i <= ds.Tables(0).Rows.Count - 1 Then
            If CInt(txtCodiceDitta.Text) > CInt(ds.Tables(0).Rows(i)("Quantita").ToString()) Then
               QUI non so andare avanti
            Else
                QUI non so andare avanti
            End If
        End If
        Connection.Close()