Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Const CONNSTR = "Provider=MSDAORA.1;Data Source=127.0.0.1/XE;User" & _
        "ID=USER;Password=PASS;"
        Const SQL = "SELECT TABLE_NAME FROM ALL_TABLES"
        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("TABLE_NAME") & ControlChars.Tab  ' Einträge durch 
                ' Tabs trennen
' evtl. weitere Tabelleneigenschaften hier im Code
                ListBox1.Items.Add(str)               ' Zeile zur Listbox 
                ' hinzufügen
            Loop
            .Close()                                  ' DataReader schließen
        End With
        conn.Close()
 
    End Sub