Leyendo SQLSERVER en Combox

amigos leo desde la base de datos pero cada vez que lo
ejecuto se vuelve a generar la misma lista y asi
amentacada vez que dejo el campo alguien me puede decir
donde fallo y ademas si esta bien lo que hago o debo
cambiar a los DataSets millon de gracias

Private Sub ComboBox1_Enter(ByVal sender As Object, ByVal
e As System.EventArgs) Handles ComboBox1.Enter

Dim comando As New SqlCommand("select nombre from
empresa", conexion)
creando lector
Dim lector As SqlDataReader
conexion.Open()
lector = comando.ExecuteReader()
While lector.Read()
Me.ComboBox1.Items.Add(lector("nombre"))
End While
lector.Close()
conexion.Close()
.