Afficher les occurrences d'une table dans une combobox

bonjour,

voila, j'ai un petit probleme. En fait je souhaiterais ajouter les occurrences de la table Users (user_name est le nom du champ) dans un combobox en VBA sous Outlook. Malgré de nombreux éssais, je n'y parvient toujours pas :(. Je vous montre mon code au complet. Tout d'abord dans le UserForm:

Private Sub UserForm_Initialize()
    Dim objmyconn As ADODB.Connection
    Dim strSQL As Variant
   
    Set objmyconn = OpenSQLServerDB("dbauser", "dbauser")
   
    Call FillcboUsers(cboUsers)
 
End Sub

Puis voici mon code pour l'affichage dans la combobox qui est dans le module (je ne vous met pas la connexion car cette derière est correcte)

Sub FillcboUsers(cboUsers As ComboBox)
   
    Dim rstUsers As ADODB.Recordset
    Dim strSQL As Variant
    Dim objmyconn As ADODB.Connection
    Dim Nb_TabUsers As Single
    Dim i As Integer
   
    On Error Resume Next
    Set rstUsers = CreateObject("ADODB.Recordset")
    strSQL = "Select [user_name] " & _
             "from Users " & _
             "Order By [user_name];"
    rstUsers.Open strSQL, objmyconn, adOpenForwardOnly, adLockReadOnly
   
    If rstUsers.State = adStateOpen Then
        cboUsers.Column = rstUsers.GetRows
        rstUsers.Close
    End If
    Set rstUsers = Nothing
   
End Sub

Je vous remercie tous pour vos reponses.

Fehn

    Dim objmyconn As New ADODB.Connection
    Dim rstUsers As New ADODB.Recordset
    Dim strSQL As String
    
   'Ouverture de la connection à la base de données ...

    strSQL = "Select [user_name] " & _
             "from Users " & _
             "Order By [user_name];"

    Set rstUsers = objmyconn.Execute(strSQL) 

    While not rstUsers.EOF
        cboUsers.Add = rstUsers!user_name
        rs.MoveNext
    Wend
    rstUsers.Close
    Set rstUsers = Nothing
End Sub


-Francis-