Popolare una comboBox

Save a tutti 

io avrei piccolo problemino 

questa sub che ho fatto funziona ma:

ma c'è un ma non riesco a popolare il ComboClienti0.ValueMember

per poter fare le mie ricerche nel DB

cortesemente mi potreste dare qualche dritta

grazie 1000 a tutti

Private Sub Carico_comboClienti()

    Dim s, a As String
    Dim Cn As New OleDbConnection(Percorso)
    Dim Trova As String = ""
    Try
      Trova = "Select *,id_Cliente,cognome,nome  FROM archivio_Clienti ORDER BY cognome"
      Cn.Open()
      Dim cmd As New OleDbCommand(Trova, Cn)
      Dim dr As OleDbDataReader = cmd.ExecuteReader
      dr.Read()
      Do
        Dim nome As String = dr.Item("nome").ToString
        Dim cognome As String = dr.Item("cognome").ToString
        Dim id As Integer = dr.Item("id_Cliente").ToString
        s = nome
        s = s.PadRight(20)
        a = cognome
        a = a.PadRight(20)
        ComboClienti0.Items.Add(a & s)
        'ComboClienti0.ValueMember = ("id_Cliente").ToString
      Loop While (dr.Read())
      dr.Close()
      Cn.Close()

    Catch es As Exception
      MessageBox.Show("Errore: "& es.Message)
    End Try
  End Sub