rsp.Open sqlP, ResSQL

Dim PJ1() As String
Dim PJ() As String
i =  1 
While (Not rsp.EOF)
ReDim Preserve PJ1(i)
        PJ1(i) = rsp( 0 )'заполнение первого одномерного массива
ReDim Preserve PJ(i)
        PJ(i) = rsp( 1 )'заполнение второго одномерного массива
rsp.MoveNext
i = i +  1 
Wend
rsp.Close

ReDim PJ0(i -  1 ,  2 ) As String
For j =  1  To i -  1 
PJ0(j,  0 ) = PJ1(j), а теперь объединение их в двумерный 
PJ0(j,  1 ) = PJ(j)
Next

' Проветка 
For j =  1  To i -  1 
    For w =  0  To  1 
za = za & PJ0(j, w) & ","
    Next w
za = za & Chr( 13 )
Next j
MsgBox za

    rsp.MoveLast