Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
 
        'Definition ADO-Datenbank-Connection auf Oracle-Datenbank
        'vorher Verweis auf ADO-DB setzen
        Dim conn As ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim sql As String
        Dim strConnection As String
        strConnection = "Provider=MSDASQL.1;Password=MEINPASSWORT;Persist" & _
          "Security Info=True;User ID=MEINEID;Data Source=MEINEDATENBANK"
 
        'Definition Array und Zähler für Recordset-Ergebnis
        Dim arrRecordset() As String
        Dim i As Integer
 
        'Verbindung herstellen
        conn = New ADODB.Connection
        rs = New ADODB.Recordset
        conn.Open(strConnection)
 
        'Daten abrufen - alle Views, die mit VCM_ beginnen
        sql = "Select cat.Table_Name from cat where table_type = 'VIEW'  and" & _
          "Table_Name like 'VCM_%' order by table_name"
        rs.Open(sql, conn, ADODB.CursorTypeEnum.adOpenDynamic, _
        ADODB.LockTypeEnum.adLockReadOnly)
 
        'Prüfen, ob Daten gefunden, sonst Verbindung schließen, Prozedur beenden
        If rs.EOF Then
            MsgBox("Keine Daten gefunden")
            rs.Close()
            Exit Sub
        End If
 
        'Listbox: Alte Werte löschen
        lstViews.Items.Clear()
 
        'Abarbeiten des Arrays ...
        For i = LBound(arrRecordset) To UBound(arrRecordset)
 
            If Len(arrRecordset(i)) > 0 Then
                '>0 ist notwendig, weil die rs.GetString-Methode ein ";" ans 
                ' Ende des Strings setzt
                Me.lstViews.Items.Add(arrRecordset(i))
 
                'zum Testen:
                'MsgBox(arrRecordset(i))
                'debug.print(arrRecordset(i))
            Else
                'zum Testen für letztes Element oder Nulllängen-Elemente 
                ' zwischendrin
                'MsgBox("Länge 0")
            End If
        Next
 
        rs.Close()
 
    End Sub
End Class

'...
'Ergebnis des Recordset in Array lesen
arrRecordset = Split(rs.GetString(, -1, , ";", ""), ";")
'... etc. und dann so weiter wie oben

Do Until (rs.EOF Or rs.BOF)
  Me.lstViews.Items.Add(rs!Table_Name) '<--- das da ist mein Problem!
  rs.MoveNext
Loop

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)