append field into access db error

[WebStar]

Hi,
I get an error (no. 3211) when I try to add a new field
into an access data base with the append method. This is the code:

Private Sub UpdateField(ByVal newFieldName As String)
Dim db As database
Dim td As TableDef
Dim fl As Field
Dim bFieldName As Boolean

db = ... to define

For Each fl In db.TableDefs("AllUsers").Fields
        If fl.Name = newFieldName Then
            bFieldExists = True
            Exit For
        End If
Next fl

If Not bFieldExists Then
        'create field
        Set td = db.TableDefs("AllUsers")
        If Not td.Updatable Then
            MsgBox "TableDef not Updatable! ", vbInformation, "Cannot update !"
            Exit Sub
        End If
        Set fl = td.CreateField(newFieldName, dbText)
        td.Fields.Append fl

<---error 3211

End If

End Sub

 

[WebStar]

I've changed the code a little to be more general...

Private Sub UpdateField(ByVal newFieldName As String, ByRef db as Database, ByVal TableName as String)
Dim td As TableDef
Dim fl As Field
Dim bFieldName As Boolean
 
For Each fl In db.TableDefs(TableName).Fields
        If fl.Name = newFieldName Then
            bFieldExists = True
            Exit For
        End If
Next fl

If Not bFieldExists Then
        'create field
        Set td = db.TableDefs(TableName)
        If Not td.Updatable Then
            MsgBox "TableDef not Updatable! ", vbInformation, "Cannot update !"
            Exit Sub
        End If
        Set fl = td.CreateField(newFieldName, dbText)
        td.Fields.Append fl

<---error 3211

End If

End Sub

Anyone knows why I get this error? Thank you!