Ciao , potresti provare in questo modo :
codice:
Dim VTabella As TableDef
With Db
' Leggi tutte le tabelle presenti nel database
For Each VTabella In .TableDefs
If UCase(VTabella.Name) = UCase(Tua_Tabella ) Then
VTabella.Fields.append VTabella.createfield(Tuo_Campo , dbtext)
End If
Next VTabella
End With
End Sub
Per la guida on-line di Sql non so dirti dove trovarla , provo a vedere se tra i file che ho scaricato ho qualcosa , cmq access ha una sintassi tutta sua non è Sql standard .
Fammi sapere se funziona .
Ciao alla prossima
Red