Dim ArrProdottiDaOrdinare() As Integer = {}
Dim i As Integer = 0

Call EstraiDatiAlVoloAutomation(SqlQuery) '+++ funzione di estrazione dati 

            If Dati.HasRows = True Then
                blnCeDaFareSoglieMinime = True
                ReDim ArrProdottiDaOrdinare(i)

                While Dati.Read() 'lettura ciclica
                    ReDim Preserve ArrProdottiDaOrdinare(i + 1)
                    ArrProdottiDaOrdinare(i) = CInt(Dati("IdProdotto"))
                    i = i + 1
                End While
                    Dati.Close()
            Else
                Exit Sub
            End If


Public Sub EstraiDatiAlVoloAutomation(ByVal strSQLvar As String)
        '+++estrae dati da mantenere sul datareader al volo per bisogni a lettura RAM

        '+++ a differenza di EstraiDatiAlVolo non mostra messaggi se non ci sono records trovati +++

        If RiattivaConnessione() = False Then Exit Sub

        'Dim objCommand As New OleDb.OleDbCommand(strSQLvar, Connetti)

        Try
            '+++ pezzo nuovo multidb +++
            Call CloseDati()

            objCmd.Connection = Connetti
            objCmd.CommandText = strSQLvar

            Dati = objCmd.ExecuteReader() 'faccio leggere i dati..
            '+++ fine pezzo multidb +++


        Catch ex As Exception
            Call ScriviLog("ModOperazioniDB.EstraiDatiAlVoloAutomation", ex.Message)
            MsgBox("NESSUN DATO ESTRATTO DAL DATABASE IN BASE AI CRITERI SPECIFICATI ... " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
        End Try

        'Command = Nothing

    End Sub