Private Sub PreencherListaToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles  _ 
PreencherListaToolStripMenuItem1.Click

       'configura o ListView 
        Me.ListView1.View = View.Details
        Me.ListView1.GridLines = True
        Me.ListView1.FullRowSelect = True
        Me.ListView1.Columns.Add(New ColumnHeader)
        Me.ListView1.Columns(0).Text = "Codigo"
        Me.ListView1.Columns(0).Width = 80
        'define o cabeçalho do listview
        ListView1.Columns.Add(New ColumnHeader)
        ListView1.Columns(1).Text = "Produto"
        Me.ListView1.Columns(1).Width = 300
        'define a string de conexão e a instrução SQL
        Dim conn As New SqlClient.SqlConnection("Server = .\sqlexpress;Database = NorthWind; Integrated Security = SSPI;")
        Dim rdrQuery As String = "SELECT ProductName, ProductId FROM Products order by ProductID"
        Try
            conn.Open()
            'executa a consulta na conexão criada e gera o DataReader
            Dim cmd As New SqlClient.SqlCommand(rdrQuery, conn)
            Dim rdr As SqlClient.SqlDataReader = cmd.ExecuteReader()
           'percorre o datareader e preenche o ListView
            While rdr.Read()
                Dim lvItem As New ListViewItem(New String() {rdr.GetInt32(1).ToString, rdr.GetString(0)})
                Me.ListView1.Items.Add(lvItem)
            End While
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            conn.Close()
        End Try

    End Sub