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()
.

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,

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()
.

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,

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()
.

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,

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()
.

Lo que pasa es que estas cargando el combo en el Evento
ENTER o sea cada vez que entra el cursor al combo lo
cargas y con Me.ComboBox1.Items.Add o sea le agregas a
a la lista que ya existia.

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()
.