Dim sqlconn As SqlConnection = New SqlConnection("Initial" & _
          "Catalog=SQLSRVDB;Data Source=ren-station;Integrated Security=SSPI")
        Dim sqlcmd As String = "SELECT Name,Nr FROM PosNr"
        Dim sqlda As New SqlDataAdapter(sqlcmd, sqlconn)
        Dim dt As New DataTable("MyDataTable")
        sqlda.Fill(dt)
        For Each r As DataRow In dt.Rows
            Me.ListView1.Items.Add(r("Name").ToString)
            'me.ListView1.Items.Add ...
        Next
         ' evtl. [DataGrid].DataSource = dt

        Dim rows() As DataRow = dt.Select("Name LIKE 'Meier'")
        If rows.Length > 0 Then
            For Each r As DataRow In rows
                Me.ListView1.Items.Add(r("Name").ToString)
                ' usw..
            Next
        Else
            MessageBox.Show("Keine Datensätze gefunden!")
        End If