Melder fejl.. :-(

hvad er det lige der er galt her?

Option Explicit

Private Sub cmdCreate_Click()
    \'Opretter databasens objekt variabler
    Dim dbWorkspace As Workspace
    Dim dbDatabase As Database
    Dim dbTableDef As TableDef
    Dim dbNavn As Field
    Dim dbNummer As Field
   
    \'Opretter databasens objekter
    Set dbWorkspace = DBEngine.Workspaces(0)
    Set dbDatabase = dbWorkspace.CreateDatabase(\"c:\\windows\\skrivebord\\Visual basic scripts\\database\\database.mdb\", dbLangGeneral)
    Set dbTableDef = dbDatabase.CreateTableDef(\"Telefonbog\")
    Set dbNavn = dbTableDef.CreateField(\"Navn\", dbText)
     
    \'Her indstilles feld rettighederne
    dbNavn.Size = 30
    dbNummer.Size = 30
   
    dbTableDef.Fields.Append dbNavn
    dbTableDef.Fields.Append dbNummer
   
    dbDatabase.TableDefs.Append dbTableDef
   
    \'Lukker forbindelsen til databasen
    dbDatabase.Close
    MsgBox \"Database oprettet\"
End Sub


Den vil godt oprette databasen, men den vil ikke oprette tabellen \"telefonbog\"
og den kommer heller ikke med msgboxen !

Den kommer med denne fejl:


Run time error \'91\':

Object variable or With block variable not set