[VBA ACCESS] liste déroulante via vba

Bonjour a tous,

je voudrais remplir une liste déroulante à l'aide d'une requete sql dans VBA.

Seulement j'ai un pb, une boite de dialogue s'affiche : "erreur d'execution 2176 : le paramètre de ctte propriété est trop long", sachant que la colonne de ma table Intituleunite contient 7000 enregistrements.
Comment puis régler ça?

Voici mon code.

Private Sub nom_lab_Enter()
Dim myrst As Recordset
Dim db As Database
Dim SQL As String
Dim s As String

nom_lab.RowSource = ""
Set db = CurrentDb()
SQL = "SELECT DISTINCT Intituleunite FROM base_cnrs"

Set myrst = db.OpenRecordset(SQL, dbOpenSnapshot)
While Not myrst.EOF
res = myrst.Fields("Intituleunite")
'rajout du labo dans la liste deroulante
Me.nom_lab.AddItem res
myrst.MoveNext
Wend
myrst.Close
End Sub

Configuration: Windows XP
Internet Explorer 6.0