Private sqlconn As SqlConnection = New SqlConnection("Initial" & _
      "Catalog=SQLSRVDB;Data Source=ren-station;Integrated Security=SSPI")
    Private sqlcmd As SqlCommand = New SqlCommand("SELECT Name,Nr FROM PosNr", _
    sqlconn)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        sqlconn.Open()
        Dim sqlrea As SqlDataReader = sqlcmd.ExecuteReader()
        Dim listvi As New ListViewItem("")
        Do While sqlrea.Read()
            listvi = New ListViewItem(sqlrea.Item(0).ToString())
            listvi.SubItems.Add(sqlrea.Item(1))
            Me.ListView1.Items.Add(listvi)
        Loop
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub