Dim oConn As New ADODB.Connection
        Dim oRs As New ADODB.Recordset
 
        oConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data" & _
          "Source=" & Dateiname & ";"
 
        oConn.Open()
 
        With oConn
            oRs = .OpenSchema(ADODB.SchemaEnum.adSchemaTables)
            Do Until oRs.EOF
                If oRs("TABLE_TYPE").Value = "TABLE" Then
                    ListBox1.Items.Add(oRs("TABLE_NAME").Value)
                End If
                oRs.MoveNext()
            Loop
        End With
 
        oRs.Close()
        oConn.Close()