VBA ACCESS problème de collection

Bonjour,
Je travail sous Access pour faire un projet de gestion de devis et j'ai un problème avec une portion de mon code je vous le soumet :

Code :
Cette partie c'es ma classe client :

Public Nom As String
Public Prenom As String
Public Id As String

Public Function AddVendor(ByVal sid As Integer, ByVal sNom As String, ByVal sPrenom As String)

Id = sid
Nom = sNom
Prenom = sPrenom

End Function

Cette partie c'est le code principal :

Private oColl As New Collection

Private Sub Form_Load()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim sSQL As String
Dim i As Integer

i = 0

' Ouverture de la base de données
Set db = CurrentDb
sSQL = "Select ID_CLT, NOM_CLT, PRE_CLT FROM CLIENT"

Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)

While Not rst.EOF
addCLT rst.Fields(0), rst.Fields(1), rst.Fields(2)
rst.MoveNext
Wend

Me!Liste0.ColumnCount = 2
Me!Liste0.ColumnWidths = "1000;1000"
Me!Liste0.RowSource = "Nom;Prénom"
'Parcour du recordset

For i = 1 To 5
<gras>Set oreqven = oColl(i)
MsgBox oreqven.Id '& vbCrLf & oColl(i).Nom & vbCrLf & oColl(i).Prenom
Next i

rst.Close

End Sub

Private Sub addCLT(Id As String, Nom As String, Prenom As String)
Dim oClient As Client
Set oClient = New Client

oClient.AddVendor Id, Nom, Prenom
oColl.Add oVendor, oClient.Id

End Sub
</gras>

Il me donne une erreur : "Incomptabilité de type" en me sulignatn la ligne en gras.

Merci de me donné un eu d'aide je ne m'en sort plus.