Imports System.Data
Imports System.Data.SqlClient
 
Partial Class _Default
    Inherits System.Web.UI.Page
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim connStr As String = "Data Source=DEGSQL01;Initial Catalog=test;User" & _
          "Id=sa;Password=password"
        Dim conn As New SqlConnection(connStr)
        Dim cmd As New SqlCommand("sp_test", conn)
        cmd.CommandType = CommandType.StoredProcedure
 
        Dim parm1 As New SqlParameter("@Nachname", SqlDbType.VarChar)
        parm1.Direction = ParameterDirection.Input
        parm1.Value = Convert.ToString(TextBox1.Text)
        cmd.Parameters.Add(parm1)
 
        Dim da As New SqlDataAdapter(cmd)
        Dim ds As New DataSet()
        conn.Open()
        da.Fill(ds, "Suchen")
        conn.Close()
 
        ListBox1.DataSource = ds
        ListBox1.DataMember = "Suchen"
 
    End Sub
End Class