Originariamente inviato da elisa_rm74
riferimento aggiunto ma non fuzia lo stesso. Mi da il seguente errore:

Dim adoCn As New ADODB.Connection
adoCn.Open(StringaConnessione)
Dim cat As New ADOX.CatalogClass
cat.ActiveConnection = adoCn
Dim t As ADOX.Table = cat.Tables("T_Config")
t.Columns.Append("Pag", ADOX.DataTypeEnum.adInteger)
adoCn.Close()

dove StringaConnessione è la mia striga già usata svariate volte

errore su cat.ActiveConnection = adoCn:
Interfaccia non supportata.
Non hai pensato di aggiungere pure un riferimento a:

Microsoft ActiveX DataObject x.y Library