Vba ; zone de liste ; aide ; problème

Bonjour,
J'ai un problème dans le langage vba. Je vous envois le code, si quelqu'un serait capable de m'aider, sa serait très gentil :)

Dim numFilm As Integer
Dim numCom As Integer
Dim identCom As String

Set BD = CurrentDb
Set Result = BD.OpenRecordset("select numFilm from Film where titre like '*" & OpenArgs & "*'")
numFilm = Result.Fields("numFilm")
Set Result = BD.OpenRecordset("select numCom from Role where numFilm =" & numFilm)
While Not Result.EOF()
numCom = Result.Fields("numCom")
Set Resulte = BD.OpenRecordset("select identCom from Com where numCom =" & numCom)
identCom = Resulte.Fields("identCom")
Me.Comédien.AddItem (identCom) Erreur a cette ligne.
Result.MoveNext
Wend

OpenArgs = String.
Comédien = Zone de liste.

Les requêtes ce font sur une base de donnée de DvDThèque.
Ne sachant pas faire des requêtes compliqué, je me débrouille comme je peut, et ici, cela me pose problème.
Si quelqu'un voit la lumière dans ceci, qu'il éclaircisse ma lanterne je vous en serais reconnaissant :)

Merci d'avance :)