Object- oder With-Block-Variable nicht festgelegt"

Vielen Dank im Voraus

Option Explicit
Option Compare Text

Sub DatenBank()

Dim TabDef As New TableDef
Dim Feld As New Field
Dim Db As Database
Dim dbFile As String

'dbFile = Application.Path + "\ADRESS2.MDB"
'Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, _
' dbEncrypt + dbVersion30)

TabDef.Name = "Adressen"

'Datenfeld #1
Feld.Name = "AdressNr"
Feld.Type = dbLong
Feld.Attributes = dbAutoIncrField
TabDef.Fields.Append Feld
Set Feld = Nothing

'Datenfeld #2
Feld.Name = "Anrede"
Feld.Type = dbText
Feld.Size = 20
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing

'Datenfeld #3
Feld.Name = "Name"
Feld.Type = dbText
Feld.Size = 50
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing

'Datenfeld #4
Feld.Name = "Strasse"
Feld.Type = dbText
Feld.Size = 35
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing

'Datenfeld #5
Feld.Name = "PLZ"
Feld.Type = dbText
Feld.Size = 8
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing

'Datenfeld #6
Feld.Name = "Ort"
Feld.Type = dbText
Feld.Size = 40
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing

'Datenfeld #7
Feld.Name = "Telefon"
Feld.Type = dbText
Feld.Size = 25
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing

'Datenfeld #8
Feld.Name = "EMail"
Feld.Type = dbText
Feld.Size = 50
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing

Db.TableDefs.Append TabDef
Db.Close

Set TabDef = Nothing
Set Db = Nothing

End Sub