theand

Vlw's Renan, ajudou bastante o conceito de redimAux, assim pude fazer o seguinte :

Set rs = conn2.execute(sql)
p=rs.getrows()
conn2.close

x = ubound(p,2)
Dim arr_gov(), arr_con(), arr_par()
Dim redimgov : redimgov = 0
Dim redimcon : redimcon = 0
Dim redimpar : redimpar = 0

For i = 0 To x
    If p(2,i) = "GOV" Then
        ReDim preserve arr_gov(redimgov)
        arr_gov(redimgov) = p(3,i)
        redimgov = redimgov + 1
    ElseIf p(2,i) = "CON" Then
        ReDim preserve arr_con(redimcon)
        arr_con(redimcon) = p(3,i)
        redimcon = redimcon + 1
    Else
        ReDim preserve arr_par(redimcon)
        arr_par(redimpar) = p(3,i)
        redimpar = redimpar + 1
    End If
Next

for i = 0 to 5
    response.Write("<br>Posição "&i&" do SUS - O valor é : "&arr_gov(i))
next
for i = 0 to 5
    response.Write("<br>Posição "&i&" do Convênio - O valor é : "&arr_con(i))
next
for i = 0 to 5
    response.Write("<br>Posição "&i&" do Particular - O valor é : "&arr_par(i))
next

Retornando o desejado agora
Posição 0 do SUS - O valor é : 8
Posição 1 do SUS - O valor é : 5
Posição 2 do SUS - O valor é : 6
Posição 3 do SUS - O valor é : 7
Posição 4 do SUS - O valor é : 3
Posição 5 do SUS - O valor é : 2
Posição 0 do Convênio - O valor é : 239
Posição 1 do Convênio - O valor é : 211
Posição 2 do Convênio - O valor é : 191
Posição 3 do Convênio - O valor é : 180
Posição 4 do Convênio - O valor é : 173
Posição 5 do Convênio - O valor é : 131
Posição 0 do Particular - O valor é : 54
Posição 1 do Particular - O valor é : 53
Posição 2 do Particular - O valor é : 53
Posição 3 do Particular - O valor é : 51
Posição 4 do Particular - O valor é : 46
Posição 5 do Particular - O valor é : 41

Tentarei agora colocá-los como array bidimensional, assim poderei passar o valor e o período de referência.