Dim catalog As New ADOX.Catalog
Dim conn As New ADODB.Connection
Dim table As New ADOX.Table
 
Dim neueDatei As String = path + "\imports.mdb"
Dim connStr As String = _
         "Provider=" + prov + ";Data Source=" + neueDatei + ";"
 
Try
     conn.ConnectionString = connStr
     conn.Open()
     'Erzeuge Access-Tabelle
      catalog.ActiveConnection = conn
       Dim tabelle As String = "TestTabelle" '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 = _
       "C:\DeineExcelDatei.xls"
       dim excelTabelle as string = "Deine Excel Tabelle"
       table.Properties("Jet OLEDB:Remote Table Name").Value = excelTabelle+ "$"
       catalog.Tables.Append(table)
Catch ex As Exception
        MessageBox.Show(ex.Message)
Finally
         conn.Close()
End Try

'---------------------------------------------'
ich weiss, dass ich nichts weiss

immerSuchender