Bonjour à tous!

Voila j'ai un problème avec ma comboBox je voudrais afficher une liste de pays dans la comboBox via une requete que j'ai testé qui fonction bien sous sql access pourtant lorsque je lance le programme rien se passe ma comboBox reste vide!!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Globale.Initialiser()
 
        'CREATION DE LA REQUETTE
        Dim maRequete As String
        maRequete = "SELECT pay_nom FROM pays WHERE pay_code = ('" & CboBoxPays.SelectedItem & "')"
 
        'LA COMMANDE
 
        Dim maCommande4 As OleDbCommand
        maCommande4 = New OleDbCommand()
        maCommande4.Connection = Globale.connexion
        maCommande4.CommandType = CommandType.Text
        maCommande4.CommandText = maRequete
 
        'LE DATAREADER
 
        Dim monDatareader As OleDbDataReader
        monDatareader = maCommande4.ExecuteReader()
        If ((monDatareader.Read() = True)) Then
            codePays = monDatareader("pay_code")
        End If
        'FERMETURE DE LA CONNECTION
        monDatareader.Close()
Merci de votre aide