Set oCat = CreateObject("ADOX.Catalog") Set oTable = CreateObject("ADOX.Table") Set oIndex = CreateObject("ADOX.Index") Set oCols = oTable.Columns oCat.ActiveConnection = oCacheConn.ConnectionString Set oTable = oCat.Tables("accidentstate") With oIndex .Name = "nuindex" .Columns.Append cResultTable End With oTable.Indexes.Append oIndexThe error I get is: