Dim cat As New ADOX.Catalog
        cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & akt_drive _
          & akt_dir & "\mydb.mdb")
        Dim MyTabledef As New ADOX.Table
        MyTabledef.ParentCatalog = cat
        MyTabledef.Name = "TabExcel"
        cat.Tables.Append(MyTabledef)

Dim xlspfad As String = excelfile 
        Dim xlsconnectionstring As String = _
          "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" + xlspfad + _
        ";Extended Properties='Excel 8.0;HDR=Yes;'" 
        Dim xlsconn As New System.Data.OleDb.OleDbConnection( _
          xlsconnectionstring)
        xlsconn.Open()
        Dim xlscmd As System.Data.OleDb.OleDbCommand = New _
          System.Data.OleDb.OleDbCommand("Select * From [Artikel$]", xlsconn)
        Dim xlsda As System.Data.OleDb.OleDbDataAdapter = New _
        System.Data.OleDb.OleDbDataAdapter(xlscmd)
        Dim xlsdt As New DataTable
        xlsda.Fill(xlsdt)