Ciao Filippo,
io faccio così (dopo la connessione con il DB):
codice:
' Inserisce un nuovo Campo Titolo:
RST.ActiveConnection = Connes
RST.CommandType = adCmdText
RST.CommandText = "Alter Table TblDatiPersonali ADD Titolo VarChar(20) Null"
RST.Execute
'Modifica la dimensione di una Colonna (Campo Indirizzo di Tblclienti2):
Dim Conn2 As New ADODB.Connection
Dim OggCam As New ADODB.Command
OggCam.ActiveConnection = Conn2
OggCam.CommandType = adCmdText
OggCam.CommandText = "ALTER TABLE Tblclienti2 ALTER Indirizzo Text(250)"
OggCam.Execute