Non so se è una procedura corretta, cmq ci provo (fatemi sapere se va :rollo: )
codice:
Dim c1
Dim c2
Dim c3
Dim Pippo
Pippo = miafunzione (c1, c2, c3)
Function miafunzione (ByRef miocampo01, ByRef miocampo02, ByRef miocampo03)
'Inserire qui il codice per la lettura del database e assegnare
'i valori estratti alle variabili miocampo01, miocampo02, miocampo03
'Uscendo dalla funzione, i valori delle variabili dovrebbere essere modificati
'anche a livello superiore, cioè ritrovarseli anche in c1, c2 e c3
End Function