ADO NET
public sub llenarCombo() Me.cmboEliminar.Items.Clear() sql = "SELECT IDPERSONA FROM Persona" cmd.CommandType = CommandType.Text cmd.Connection = conn cmd.CommandText = sql dr = cmd.ExecuteReader If dr.HasRows = True Then While dr.read() Me.cmbEliminar.Items.Add(dr.Getvalue(0)) End While end If