Public Class Artikelverwaltung
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        conn = New ADODB.Connection
        conn.opem("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
          Application.StartupPath & "\Daten\Stammdaten.mdb")
        rs.Open("SELECT * FROM Artikel", conn, _
        ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockPessimistic)
        If rs.EOF = False Then
            rs.MoveFirst()
 
            Do
                With ListArtikelVerwaltung.Items.Add(rs.Fields("Art-Nr").Value)
                    .Subitems.add(rs.Fields("Bezeichnung").Value)
                    .Subitems.add(rs.Fields("Preis").Value)
                End With
                rs.MoveNext()
            Loop Until rs.EOF
        End If
        rs.Close()
    End Sub
End Class