[VB6] Recuperare dati da modulo

[[_Kilckk_]]

ciao a tutti io ho realizzato questo modulo:

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Connessione()
    Set cn = New ADODB.Connection
    cn.Open "Provider=MSDASQL; Data Source=Mysql; Database=prova; User Id=root; Password=; Security Info=True"
End Sub

Public Sub query(sql As String)
    Call Connessione
    Set rs = cn.Execute(sql)
    Call Chiusura 
End Sub

Private Sub Chiusura()
    cn.Close  
End Sub

ora ad esempio io invio alla query un " SELECT * form prova ", poi come faccio a recuperare i dati nella variabile rs dalla form??? :master:

Grazie per il vostro aiuto.