Visual Basic.NET - StoreProcedure

Private Sub LlenarCombo(ByVal Var1 As String)

        Dim cn As New SqlConnection("Data Source=TuServidor;Persist Security Info=False;User ID=sa;Password=tupassword;Initial Catalog=TuBasedeDatos;")

        Dim oComando As New SqlCommand("sp_TuStoreProcedure", cn)

        oComando.CommandType = CommandType.StoredProcedure

        ' si tuvieras parametros

        Dim Par1 As New SqlParameter("@Idpar1", SqlDbType.NVarChar, 20)

        Par1.Value = Var1

        oComando.Parameters.Add(Par1)

        Dim oAdapter As New SqlDataAdapter(oComando)

        Dim oTabla As New DataTable

        Try

            'rellenamos el DataTable con el resultado del procedimiento almacenado

            oAdapter.Fill(oTabla)

            'IdColumna: nombre de la columna a representar en el campò clave

            'Columna: nombre de columna a mostrar

            Me.ComboBox1.ValueMember = "IdColumna"

            Me.ComboBox1.DisplayMember = "Columna"

            Me.ComboBox1.DataSource = oTabla

        Catch ex As SqlException

            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Error")

        End Try

    End Sub