Dynamisk array

Jeg har understående kode:
Dim rsTab,sqlTab,arrTab,i
Set rsTab = Server.CreateObject("ADODB.RecordSet")
sqlTab ="SELECT P_Navn, P_ENavn FROM T_Person WHERE P_PNiveau > 9"
rsTab.Open sqlTab, strDSN, 3, 2, 1
If Not rsTab.EOF Then
    arrTab = rsTab.GetRows
End If
rsTab.Close
Set rsTab = Nothing
If isArray(arrTab) Then
    For I = 0 To uBound(arrTab,2)
        Response.Write arrTab(0,i)&"<BR>"
    Next
End If

Jeg vil gerne have skrevet både P_Fnavn og P_ENavn, men får kun den første udskrevet(F_Navn)