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