Aide pour VBA

Bonjour, novice en informatique je dois écrire un module sous visual basic pour l'utiliser dans access.

Le but de ce module et de concatener plusieurs valeurs de "nom commercial" de produit chimique séparées de ";" afin de me retrouver avec une liste texte de tous les produits qui peuvent passer dans un équipement de clé primaire "numéro index".

Aidé d'un peu de tout, j'ai fait ce module :

Function essai(index As Single) As String
Dim criticité As DAO.Database, rsMyRS As Recordset
Dim Inginitial As Long, valeur As String
Dim requete As String

valeur = ""
requete = "SELECT [nom commercial] FROM [transfert4 Requête] WHERE [numéro index]=" & index & ";"

Set criticité = CurrentDb
Set rsMyRS = dbMyDB.OpenRecordset(requete)
IngRecCount = rsMyRS.RecordCount
rsMyRS.MoveFirst

For Inginitial = 1 To IngRecCount
valeur = valeur & rsMyRS(Inginitial).Value & ", "
Next Inginitial


End Function


Cependant, je ne sais pas s'il est correct et ne sais pas comment l'utiliser dans ma base de données (une requête générale trié par numéro d'index).

Quelqu'un pourrait-il m'aiguiller ?
Merci d'avance