[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.

[wallrider]

no so se funziona : la query la dichiari come function

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

[[_Kilckk_]]

Scusa la mia ignoranza ma come come la recupero nella form???

[oregon]

Dichiari una variabile di tipo recordset e ci assegni il risultato della chiamata alla funzione ...

[[_Kilckk_]]

Ci sono riuscito

scusate la mia ignoranza ma in php è tutto diverso.

Grazie per il vostro aiuto.