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.