Private connString As String = "Server=Metroid\MSDE2k;Integrated" & _
      "Security=SSPI;Database=NORTHWIND"
    Private conn As SqlConnection
 
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ListView1.Columns.Add("Shipper Id", 90, HorizontalAlignment.Right)
        ListView1.Columns.Add("Company Name", 150, HorizontalAlignment.Left)
        ListView1.Columns.Add("Phone", 90, HorizontalAlignment.Right)
        ListView1.View = View.Details
 
        conn = New SqlConnection(connString)
        Dim cmd As New SqlCommand("Select * FROM Shippers", conn)
        Dim rdr As SqlDataReader
        Try
            conn.Open()
            rdr = cmd.ExecuteReader()
            While rdr.Read()
                Dim lvi As ListViewItem = ListView1.Items.Add(rdr(0))
                lvi.SubItems.Add(rdr(1))
                lvi.SubItems.Add(rdr(2))
            End While
        Catch ex As Exception
            MsgBox(ex.ToString())
            Return
        Finally
            conn.Close()
        End Try
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist