Ошибка 3265. ADOX

    Dim cat As New ADOX.Catalog
    Dim cnn As ADODB.Connection
    Dim tbl As ADOX.Table
    Dim ind As ADOX.Index
Set cnn = New ADODB.Connection
    With cnn
         .ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Полный путь к файлу.mdb
         .Open
    End With
Set tbl = cat.Tables("ALTNAMES")
    'Создание индекса
    Set ind = New ADOX.Index
    ind.Name = "OLDCODE"
    ind.Columns.Append "OLDCODE"
    tbl.Indexes.Append ind
    Set ind = Nothing
    Debug.Print "indexes created."

На выделенной строке вылетает ошибка 3265. Не посмотрите, где я ошибаюсь?
Спасибо!

Эта таблица в этом файле есть

Да, и свойство .ConnectionString в оригинале в кавычках:

"[SRC vba]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Полный путь к файлу.mdb"

Извините, разобрался. Вот как надо:

    Dim cat As New ADOX.Catalog
    Dim tbl As ADOX.Table
    Dim ind As ADOX.Index
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Полный путь к файлу.mdb"
Set tbl = cat.Tables("ALTNAMES")
    'Создание индекса
    Set ind = New ADOX.Index
    ind.Name = "OLDCODE"
    ind.Columns.Append "OLDCODE"
    tbl.Indexes.Append ind
    Set ind = Nothing
    Debug.Print "indexes created."