Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Const CONNSTR = "Provider=MSDAORA.1;DataSource=XE;User" & _
        "ID=USER;Password=PASS;"
        Const SQL = "SELECT * FROM OBJ ORDER BY [ID]"
        Dim conn As New OleDbConnection(CONNSTR)
        Dim cmd As New OleDbCommand(SQL, conn)
        Dim dr As OleDbDataReader                   ' DataReader-Objekt wird 
        ' deklariert
        conn.Open()
        dr = cmd.ExecuteReader                      ' DataReader-Objekt wird 
        ' erzeugt 
        Dim str As String                           ' zum Zusammenbau einer 
        ' Zeile 
        With dr
            Do While .Read()                  ' so lange, bis False 
            ' zurückgegeben wird
                str = .Item("ID") & ControlChars.Tab  ' Einträge durch Tabs 
                ' trennen
                str &= .Item("NUM") & ControlChars.Tab
                str &= .Item("BEZ")
                ListBox1.Items.Add(str)               ' Zeile zur Listbox 
                ' hinzufügen
            Loop
            .Close()                                  ' DataReader schließen
        End With
        conn.Close()
 
    End Sub