Option Explicit
 
'Datenbank-Ojekte
Global db As Database
Global rs As Recordset
Global td As TableDef
Global DBFileName As String
 
'------------------------------------------------------------------------------
' ----------------------------
 
Set db = Workspaces(0).OpenDatabase(DBFileName)
 
'---
 
Set td = db.TableDefs(TabelleXY)
Set rs = db.OpenRecordset("select * from " & td.Name)
 
'---
 
'Verschiedene Lösungsansätze (keine Fehlermeldung)
 
Set rs = db.OpenRecordset("ALTER TABLE TabelleXY ADD COLUMN TESTSPALTE Text(4)")
Set td = db.OpenRecordset("ALTER TABLE TabelleXY ADD COLUMN TESTSPALTE Text(4)")
 
'Eigentlicher Sollzustand (gibt Fehlermeldung)
 
Set rs = db.OpenRecordset("ALTER TABLE " & td.Name & " ADD COLUMN " & _
  text_spalte & " Text(" & Text_Groesse & ")")
'                                          Tabelle wird übergeben  |  Name der 
' Spalte    |     Größe in Bytes