Добавление нового поля в таблицу

Private Sub Form_Unload(Cancel As Integer)          
Dim tbl As TableDef
Dim fld As Field
Set tbl = CurrentDb.TableDefs("ИмяТаблицы")
Set fld = tbl.CreateField("1", dbText)
tbl.Fields.Append fld
CurrentDb.TableDefs.Append tbl
Set tbl = Nothing
Set fld = Nothing
End Sub

Dim db as DAO.Database
Set db=Currentdb
Set tbl = db.TableDefs("ИмяТаблицы")
...................................
db.TableDefs.Append tbl
...................................

Private Sub Form_Unload(Cancel As Integer)
 
 Dim tbl As TableDef
 Dim fld As Field
 Dim dbs As Database
   Set dbs = CurrentDb
   Set tbl = dbs.TableDefs("ИмяТаблицы")
   Set fld = tbl.CreateField("1", dbText)
     tbl.Fields.Append fld
     tbl.Fields.Refresh
 Set tbl = Nothing
 Set fld = Nothing
 
 End Sub

Private Sub Form_Unload(Cancel As Integer)          
Dim tbl As TableDef
Dim fld As Field
Dim dbs As Database
Set dbs = CurrentDb
Set tbl = dbs.TableDefs("Имя_таблицы")
Set fld = tbl.CreateField("1", dbText)
tbl.Fields.Append fld
tbl.Fields.Refresh       ' или       db.TableDefs.Append tbl
Set tbl = Nothing
Set fld = Nothing
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error GoTo error
 
 Dim tbl As TableDef
 Dim fld As Field
 Dim dbs As Database
 Set dbs = CurrentDb
 Set tbl = dbs.TableDefs("Имя_таблицы")
 Set fld = tbl.CreateField("1", dbText)
 tbl.Fields.Append fld
 tbl.Fields.Refresh
 Set tbl = Nothing
 Set fld = Nothing
 
 
error:
   If Err.Number = 3191 Then
      MsgBox "Данное поле уже было создано!", _
      vbOKOnly + vbExclamation, "Внимание"
   End If
 End Sub