Combobox mit einer Gespeicherten Prozedur ausfüllen

      Dim con As New SqlClient.SqlConnection

        con.ConnectionString = AppSettings.Get("connString")  

        Dim cmd As New SqlCommand
        cmd.CommandType = CommandType.StoredProcedure
        cmd.CommandText = "SP_Find_B29_Stores"  
        cmd.Connection = con
        Dim ds As New DataSet
        Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
        da.Fill(ds)
        With ComboBox1
            .DataSource = ds
            .DisplayMember = "name"  
            .ValueMember = "organ_id"  
            .SelectedIndex = 0
        End With

ALTER   PROCEDURE [dbo].[SP_Find_B29_Suppliers] 

as
begin

select 	op.organ_id as organ_id, o.name as name
from 	organ_params op
	inner join organizations o		
		on op.organ_id=o.organ_id
order by name