Utilizzo dell'istruzione SQL "Alter table"

[optime]

spiega come hai fatto, così magari qualche altro forumista ne può trarre beneficio

[steno56]

spiega come hai fatto, così magari qualche altro forumista ne può trarre beneficio

Giusto!
qui di seguito il codice che, al click del Comando1 su un form, aggiunge una colonna alla tabella "Anagrafica".
Il problema consisteva nel poter modificare il nome del campo, aggiornando la variabile "Numerazione", lasciando invariata l'istruzione SQL.

Option Compare Database
Private Sub Comando1_Click()
' Dichiarazioni di variabili
Dim Cnn As Object
Dim Rst1 As New ADODB.Command
Dim Numerazione As Integer
Dim Istr1 As String, Istr2 As String, Istr3 As String
Dim Campo1 As String
' ------------------------------------
Set Cnn = CurrentProject.Connection
' ------------------------------------
Numerazione = (NCampi - 9) / 4 + 1 ' Numerazione progressiva dei campi
' Costruzione della stringa di comando
Istr1 = "Alter Table Anagrafica ADD" ' Parte fissa dell'istruzione SQL
Istr2 = " CHAR(2) Null" ' Tipo di dato per il campo
Istr3 = " EntrataUscita" & Numerazione ' Nome del campo con numerazione
Campo1 = Istr1 + Istr3 + Istr2
' Attivazione degli oggetti di Comando
Rst1.ActiveConnection = Cnn
Rst1.CommandType = adCmdText
' ---------------------------------------
' Esecuzione dell'istruzione SQL
Rst1.CommandText = Campo1
Rst1.Execute
' -----------------------------------------
Cnn.Close
Set Cnn = Nothing
' -----------------------------------
End Sub

Chissà forse potrà servire,
un saluto, Steno56