Rellenar Crystal Reports con vector o comparar registros numericos.

Question

Resulta que en un programa de bodega el cliente me solicito que le hiciera la siguiente ventana:

Y ahora quiere que esta misma ventana (listbox) se la imprima.

Esta ventana se rellena de la siguiente manera: if(stockActual <= stockMinimo + 2)

Y el codigo que lo rellena es el siguiente:

    Public Sub stockCritico()
        Dim contador As Integer = objFunciones.contadorQuerySelect("SELECT * FROM productos")
        Dim codigos(contador) As String

        lbStockCritico.Items.Clear()

        If (contador <> 0) Then
            Dim stock(contador) As Integer
            Dim nombreProducto(contador) As String
            Dim temp As Integer = 0

            objFunciones.querySelect("SELECT nombreProducto, nombreSubProducto, codigo, stockMinimo FROM productos ORDER BY nombreProducto ASC")
            While lectura.Read
                stock(temp) = lectura("stockMinimo")
                codigos(temp) = lectura("codigo")
                nombreProducto(temp) = lectura("nombreProducto") + " - " + lectura("nombreSubProducto")
                temp += 1
            End While
            conexion.Close()

            Dim contadorReal As Integer = 0
            For i = 0 To contador - 1
                objFunciones.querySelect("SELECT stock FROM stock WHERE codigoBarras = '" + codigos(i) + "'")
                lectura.Read()
                If (lectura("stock") <= stock(i) + 2) Then
                    lbStockCritico.Items.Add(nombreProducto(i) + "                  Stock Mínimo: " + stock(i).ToString + "     Stock Actual: " + lectura("stock").ToString)
                    codigosReales(contadorReal) = codigos(i)
                    contadorReal += 1
                End If
                conexion.Close()
            Next
        End If
    End Sub

Hasta el momento relleno los reportes de la siguiente manera:

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
        MsgBox("Espere mientras se genera la nómina de stock cero")
        Dim rpt As New nominastockcero
        Dim formulario As New VisorReportes
        dat5.Clear()

        Call conexiones()

        buscar = "SELECT * FROM stock WHERE stock = 0"
        Dim cmd As New MySqlCommand(buscar, conectarme)
        Dim adaptador As New MySqlDataAdapter(cmd)
        adaptador.Fill(dat5, "stock")
        rpt.SetDataSource(dat5)

        formulario.CrystalReportViewer1.ReportSource = rpt
        formulario.Show()
    End Sub

¿De que manera puedo realizar la misma comparacion en crystal reports? o ¿de que forma envio el siguiente arreglo?

codigosReales(contadorReal) = codigos(i)

"Que es el que contiene los codigos de barra de los productos que se despliegan en esta pantalla de stock critico".

Espero haberme dado a entender y de antemano gracias por la ayuda.