Llenar un ComboBox mediante una Consulta!!

Me encuentro escribiendo este articulo para todas aquellas personas que se vean en la necesidad de llenar un combobox mediante una consulta, en este ejemplo les mostrare como llenarlo:

Codigo C#

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Text;

using System.Windows.Forms;

using System.Data.SqlClient;

namespace WindowsApplication3

{

    public partial class Llenar : Form

    {       

        SqlConnection conexion = new SqlConnection();

        SqlCommand comando = new SqlCommand();

        SqlDataAdapter adapter = new SqlDataAdapter();

        DataSet data = new DataSet();

        public Llenar()

        {

            InitializeComponent();

        }

        private void Llenar_Load(object sender, EventArgs e)

        {

            try

            {

                conexion.ConnectionString = "Server=VICO\\SQLEXPRESS; Initial Catalog=Prueba; Integrated Security=sspi;";

            conexion.Open();

            comando.Connection = conexion;

            adapter.SelectCommand = comando;

            comando.CommandText = "select nombre from t_vico order by nombre"; //el comando que llena el Combo

            comando.ExecuteNonQuery();

            adapter.Fill(data); //llenamos nuestro dataset

            comboBox.DataSource = data.Tables[0]; //llenamos nuestro combobox con el dataset

            comboBox.DisplayMember = data.Tables[0].Columns[0].Caption; //Lo mostramos

            }

            catch (Exception ex)

            {

             MessageBox.Show("Error" + ex.Message); //cualquier error no lo marca

            }}}

Codigo Vb.net

Imports System.Data.SqlClient 'Espacio de nombre

Public Class Llenar

    Dim conexion As New SqlConnection 'declaramos nuestra conexion

    Dim comando As New SqlCommand ' declaramos nuestro comando

    Dim adapter As New SqlDataAdapter ' declaramos nuestro Adapter

    Dim data As New DataSet 'declaramos nuesro Dataset

    Private Sub Llenar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Try

            conexion.ConnectionString = "Server=VICO\SQLEXPRESS; Initial Catalog=Prueba; Integrated Security=sspi;"

            conexion.Open()

            comando.Connection = conexion

            adapter.SelectCommand = comando

            comando.CommandText = "select nombre from t_vico order by nombre" 'el comando que llena el Combo

            comando.ExecuteNonQuery()

            adapter.Fill(data) 'llenamos nuestro dataset

            ComboBox.DataSource = data.Tables(0) 'llenamos nuestro combobox con el dataset

            ComboBox.DisplayMember = data.Tables(0).Columns(0).Caption.ToString 'Lo mostramos

        Catch ex As Exception

            MessageBox.Show("Error" + ex.Message) 'cualquier error no lo marca

        End Try

    End Sub

End Class

Nuestro resultado seria el siguiente: 

Espero les halla servido este pequeño articulo.