Dim tabelle As String = "TabExcel" 'Der Name der neuen Access-Tabelle
        table.Name = tabelle
        table.ParentCatalog = catalog
        table.Properties("Jet OLEDB:Create Link").Value = True
        table.Properties("Jet OLEDB:Link Provider String").Value = "Excel" & _
          "8.0;HDR=YES"
        table.Properties("Jet OLEDB:Link Datasource").Value = excelfile
        Dim excelTabelle As String = "Artikel"
        table.Properties("Jet OLEDB:Remote Table Name").Value = excelTabelle + _
          "$"
        catalog.Tables.Append(table)
        conn.Close()