.NET (Core and Framework)

Public Sub s_zoekEntiteit(ByVal i_entiteit As String)

        Dim sqlStr As String = "zoekEntiteit '" & i_entiteit & "'"
        Dim dataAdapter = New SqlDataAdapter(sqlStr, m_constring)
        Dim commandBuilder As New SqlCommandBuilder(dataAdapter)
        Dim DataGridTable As New DataTable()

        dataAdapter.Fill(DataGridTable)
        
        Form5.ListBox1.DataSource = DataGridTable
        Form5.ListBox1.DisplayMember = i_entiteit
        Form5.ListBox1.ValueMember = i_entiteit
   
    End Sub

CREATE PROCEDURE zoekEntiteit (@tmpEntiteit nvarchar(40))AS
BEGIN
	-- SET NOCOUNT ON added to prevent extra result sets from
	-- interfering with SELECT statements.
	SET NOCOUNT ON;


	SELECT @tmpEntiteit FROM tblProduct;
        --'ByVal i_prodid As String, ByVal i_prodnaam As String, ByVal i_prodomschrijving As String, 
        --'ByVal i_prodprijs As Int16, ByVal i_prodinstock As String)
END