Sub exaCreateDb() Dim dbNew As Database Dim tbl As TableDef Set dbNew = CreateDatabase("c:\", dbLangGeneral) For Each tbl In dbNew.TableDefs Debug.Print tbl.Name Next dbNew.Close End Sub