Imports System.Data.OleDb
 
Public Class Form1
    Private Sub cmdAlleSehen_Click(...) Handles ...
        Dim con As New OleDbConnection
        Dim cmd As New OleDbCommand
        Dim reader As OleDbDataReader
 
        con.ConnectionString =
            "Provider=Microsoft.Jet.OLEDB.4.0;" &
            "Data Source=C:\Temp\firma.mdb"
 
        cmd.Connection = con
        cmd.CommandText = "select * from personen"
 
        Try
            con.Open()
 
            reader = cmd.ExecuteReader()
            lstTab.Items.Clear()
            Do While reader.Read()
                lstTab.Items.Add(
                    reader("name") & " # " &
                    reader("vorname") & " # " &
                    reader("personalnummer") & " # " &
                    reader("gehalt") & " # " &
                    reader("geburtstag"))
            Loop
            reader.Close()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class