Populate 2 dimensional array from 1 row in recordset

[gvirden]

I get error "subscript out or range" with the following code.

    Dim sSQL As String
    Dim aryData(1, 5)
    Dim n As Integer, i As Integer
    
    sSQL = "SELECT * FROM Oxygen " & _
    "WHERE pond = 'A1A'"
    
    Set rsoxygen = GetRecordSet(sSQL)
    
    i = 0
    
    For n = 4 To 14 Step 2
        aryData(0, i) = aryData(0, rsoxygen(n))
        aryData(1, i) = aryData(1, rsoxygen(n + 1))
        i = i + 1
    Next