Imports System.Data.OleDb
Public Class agdaten21
    Inherits System.Windows.Forms.Form
    Const CONNSTR As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
      "Source=db1.mdb;"
    Private Sub agdaten21_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
 
        'Const SQLSTR As String = "SELECT [AGID], Name, Vorname FROM" & _
          "Ansprechpartner"
        Dim SQLSTR As String = "SELECT AnsprechpartnerID, AGID, Name, Vorname," & _
        "Funktion, Telefon, Fax, E-Mail FROM Ansprechpartner WHERE AGID=" & _
        Me.AGID1.Text
        Dim conn As New OleDbConnection(CONNSTR)
        Dim cmd As New OleDbCommand(SQLSTR, conn)
        Dim dr As OleDbDataReader
        Dim lvItem As ListViewItem
 
        With AnsprechpartnerListe
            .View = View.Details
            .AllowColumnReorder = True
            .FullRowSelect = True
            Call .Items.Clear()
            .Columns.Add("ID", 10, HorizontalAlignment.Center)
            .Columns.Add("AGID", 10, HorizontalAlignment.Center)
            .Columns.Add("Name", 200, HorizontalAlignment.Left)
            .Columns.Add("Vorname", 120, HorizontalAlignment.Left)
            .Columns.Add("Funktion", 200, HorizontalAlignment.Left)
            .Columns.Add("Telefon", 100, HorizontalAlignment.Left)
            .Columns.Add("Fax", 100, HorizontalAlignment.Left)
            .Columns.Add("E-Mail", 100, HorizontalAlignment.Left)
        End With
 
        Try
            conn.Open()
            dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)     ' 
            ' DataReader wird erzeugt
            Do While (dr.Read())
                lvItem = New ListViewItem(dr.Item("AnsprechpartnerID").ToString)
                lvItem.SubItems.Add(dr.Item("AGID").ToString)
                lvItem.SubItems.Add(dr.Item("Name").ToString)
                lvItem.SubItems.Add(dr.Item("Vorname").ToString)
                lvItem.SubItems.Add(dr.Item("Funktion").ToString)
                lvItem.SubItems.Add(dr.Item("Telefon").ToString)
                lvItem.SubItems.Add(dr.Item("Fax").ToString)
                lvItem.SubItems.Add(dr.Item("E-Mail").ToString)
                Call AnsprechpartnerListe.Items.Add(lvItem)    ' Items zum 
                ' ListView hinzufügen
            Loop
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            [u]dr.Close()
        End Try
 
    End Sub
End Class