mes_compra= rsCompra("mes")
'Dimensionas un arreglo
Dim arrMeses()
Abres un recordset con la tabla de meses, yo le llamo rsMeses
Ahora poblamos el arreglo con lo que traiga el rsMeses, pero <> de mes_compra
For i=0 to rsMeses.Recordcount
If i=0 Then
Redim arrMeses(i)
Else
Redim Preserve arrMeses(i)
End If
If rsMeses("meses") <> mes_compra Then
arrMeses(i)= rsMeses("meses")
Else
arrMeses(i)= mes_compra
End If
rsMeses.MoveNext
Next
Creo que todo lo demás sería igual....
Salu2,