Public Function QueryArray(QueryString As String) As String()
    Dim RowCount As Integer
    Dim ResultArray() As String
    Dim i As Integer
    RowCount = 0
    rsOra.Open QueryString, cnOra, adOpenForwardOnly
    ReDim ResultArray(0 To 100, 0 To 100) ' THIS IS WHERE I AM HAVING THE PROBLEM
    While Not rsOra.EOF
        For i = 0 To rsOra.Fields.Count - 1
            If IsNull(rsOra.Fields(i)) Then
                ResultArray(RowCount, i) = ""
            Else
                ResultArray(RowCount, i) = rsOra.Fields(i)
            End If
        Next
        RowCount = RowCount + 1
        rsOra.MoveNext
    Wend
    If IsArrayEmpty(ResultArray) Then
        Exit Function
    Else
        QueryArray = ResultArray
    End If
End Function