Visual Basic.NET - Llenando el combo Box

hola amigos la consulta es la siguiente tengo un programa y quiero que me llene un combo utilizo un comando del tipo SELECT bla bla bla pero solo llena el primero les pongo el código

Dim strcomando As String = "SELECT * FROM Clientes"
Dim micomando As OleDbCommand = New OleDbCommand(strcomando, miconexion)
Dim query As OleDbDataReader
query = micomando.ExecuteReader
If query.HasRows Then
Do While query.Read <==" esto le puse pero suponiendo que el query.nextresult hiciera lo ke un rs.movenext hace en el visual 6 pero no pasa nada solo carga el primer registro"
cmbclientes.Items.Add(query.Item("nombre").ToString)
query.NextResult()
Loop
End If

espero que alguien me sepa decir que estoy haciendo mal, saludos.

intenta con esto

Dim strComando as string = "SELECT * FROM Clientes"
Dim miComando as oleDbCommand = new olebdCommand(strComando, miConexion)
Dim Query as OleDBDataReader
If query.HasRows then
While query.Read
cmbClientes.Items.Add(query.item("nombre").tostring)
end while
end if

espero te sirva