Imports System.Data.OleDb
 
 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
  Handles Button1.Click
Dim con As New OleDbConnection
        Dim cmd As New OleDbCommand
        Dim reader As OleDbDataReader
        con.ConnectionString =
        "Provider=Microsoft.ACE.OLEDB.12.0;" &
        "Data Source=D:\Datenbank.accdb"
        cmd.Connection = con
        cmd.CommandText = "SELECT * FROM Anlagen"
        Try
            con.Open()
            reader = cmd.ExecuteReader()
            ListBox1.Items.Clear()
            Do While reader.Read()
                ListBox1.Items.Add(
                reader("ID") & " # " &
                reader("Nummer"))
            Loop
            reader.Close()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
End Sub