Imports System.Configuration.ConfigurationSettings
Imports System.Data.OleDb
Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
 
    Public Sub New()
        MyBase.New()
 
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
 
    End Sub
 
    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu 
    ' bereinigen.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer
 
    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer 
    ' erforderlich
    'Sie kann mit dem Windows Form-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.ListBox1 = New System.Windows.Forms.ListBox
        Me.SuspendLayout()
        '
        'ListBox1
        '
        Me.ListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", _
          9.75!, System.Drawing.FontStyle.Regular, _
          System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.ListBox1.ItemHeight = 16
        Me.ListBox1.Location = New System.Drawing.Point(16, 24)
        Me.ListBox1.Name = "ListBox1"
        Me.ListBox1.Size = New System.Drawing.Size(216, 452)
        Me.ListBox1.TabIndex = 0
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(560, 517)
        Me.Controls.Add(Me.ListBox1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)
 
    End Sub
 
#End Region
    Private Sub ListBox_Füllen()
        ' Datenauswahl definieren
        Dim _str As String
        _str = "SELECT VideosammlungID,Filmtitel, " & "Nr,Discs " + "FROM" & _
          "Videosammlung"
        ' Allgemeiner Datenbankzugriff
        Dim _conn As IDbConnection
        Dim _cmd As IDbCommand
        ' Verbindungsauswahl auswerten
        _conn = New OleDbConnection( _
                                                    AppSettings("conOleDB"))
        _cmd = New OleDbCommand(_str)
        _cmd.Connection = _conn
 
        ' Verbindung öffnen
        _conn.Open()
        Dim _dr As IDataReader
        _dr = _cmd.ExecuteReader( _
                           CommandBehavior.CloseConnection)
        ' ListBox füllen
        While _dr.Read
            ListBox1.Items.Add(_dr.GetValue(1))
        End While
        _dr.Close()
    End Sub
 
    Private Sub Form1_Load( _
         ByVal sender As Object, _
         ByVal e As System.EventArgs) _
         Handles MyBase.Load
        ListBox_Füllen()
    End Sub
End Class