Subrotina Que Não Retorna Valores!

[RAFBRASIL]

Ai pessoal, não consigo resolver esta e parece simples.

Tenho essa sub ai para abrir minhas conexões com o baco de dados. A variável G2 é um vetor criiado com o Getrows e a variável g tem a dimensão do vetor ou é zero se a sql não retornar registro nenhum.

O problemá é que chamada essa rotina, as variiáveis não são exportadas por ela e aparecem vazias na página que as chamou.

sub AbreConexao2(strSql)

set RS = Server.CreateObject("ADODB.Recordset")

RS.ActiveConnection = MM_STRING

RS.Source = strSql

RS.Open()

If RS.Eof Then

g=0

Else

G2 = RS.GetRows

g=Ubound(G2)

End If

RS.Close

Set RS = Nothing

End Sub

Andei pesquisando mas não achei a solução. Allguém por favor podia me dizer qual a besteira que estou fazendo? Obrigado!

[RAFBRASIL]

Bem, pessoal, descobri a bbobagem.

Bastava definir as duas variáveis como public antes da chamada da subrotina. Na subrotina não dava para declará-las public, agora descobri.

Então, podem fechar o tópico por mim.

[cyberalexxx]

ok! fechado!!