[RISOLTO] : Riciclare una funzione

Ciao a tutti

per ciclare e concatenare degli indirizzi mail, uso la seguente funzione:

Function getmailinglist() As String

Dim strElencoMail As String
Dim rs As DAO.Recordset

Set rs = DBEngine(0)(0).OpenRecordset("q_mail")

If rs.EOF Then
   MsgBox "Nessun Indirizzo Mail"
   rs.Close
   Set rs = Nothing
   Exit Function
End If
rs.MoveFirst
Do Until rs.EOF
    strElencoMail = strElencoMail & rs.Fields("[mail aziendale]").Value & "; "
    rs.MoveNext
Loop

rs.Close
Set rs = Nothing

strElencoMail = Mid$(strElencoMail, 1, Len(strElencoMail) - Len("; "))

getmailinglist = strElencoMail
End Function

Dal momento che ho diverse mailing list, è possibile riuscire a modificare il recordset di questa funzione a seconda del pulsante che premo?