[VB6] - Function che restituisce un array

[buba88]

mmm io avevo provato esattamente in uesto modo ma mi da un errore:
"l'oggetto nn è più valido"

ti posto il codice

in un modulo c'è questa funzione che ,passatogli per parametro l id del cliente, ricava da una database i suoi dati:

Public Function Dati_Cliente(id As Integer) As Variant()
Dim valori() As Variant
rs_c.Open "SELECT * FROM clienti WHERE id = " & id
valori = Array(rs_c!id, rs_c!Cliente, rs_c!Indirizzo, rs_c!Telefono, rs_c!Cellulare, rs_c!Note)
rs_c.Close
Dati_Cliente = valori()
End Function

poi in un form richiamo questa funzione passandogli come valore una variabile globale definita in precedenza

Private Sub Form_Load()
Dim dati() As Variant
dati = Dati_Cliente(Id_Cliente)
lblNome2.Caption = dati(1)
txtIndirizzo.Text = dati(2)
txtTelefono.Text = dati(3)
txtCellulare.Text = dati(4)
txtNote.Text = dati(5)
End Sub

a me nn sembra ci siano errori rispetto all esempio che mi hai dato tu.
qualche suggerimento?