Where to EXEC this VB Script to populate into Access DB

I am trying to create tables using sample scripts below... could someone point me to where I could populate this into Access DB
Much Appreciated
-Lawrenc

Dim ERwinWorkspace As Workspac
Dim ERwinDatabase As Databas
Dim ERwinTableDef As TableDe
Dim ERwinField As Fiel
Dim ERwinRelation As Relatio
Set ERwinWorkspace = DBEngine.Workspaces(0
Set ERwinDatabase = ERwinWorkspace.OpenDatabase(sERwinDatabase
' DELETE TABLE "F_Operating_Expense
ERwinDatabase.TableDefs.Delete "F_Operating_Expense
' CREATE TABLE "F_Operating_Expense
Set ERwinTableDef = ERwinDatabase.CreateTableDef("F_Operating_Expense"
Set ERwinField = ERwinTableDef.CreateField("f_operating_expense_id", DB_INTEGER)

Joe
Sun May 23 04:51:51 CDT 2004

"Lawrence" <lawrenceb@ascentium.com> wrote in message
news:89CC8E3C-78E5-4E8D-BA19-65386AE1363F@microsoft.com...
>I am trying to create tables using sample scripts below... could someone
>point me to where I could populate this into Access DB.
> Much Appreciated!
> -Lawrence
>
> Dim ERwinWorkspace As Workspace
> Dim ERwinDatabase As Database
> Dim ERwinTableDef As TableDef
> Dim ERwinField As Field
> Dim ERwinRelation As Relation
> Set ERwinWorkspace = DBEngine.Workspaces(0)
> Set ERwinDatabase = ERwinWorkspace.OpenDatabase(sERwinDatabase)
> ' DELETE TABLE "F_Operating_Expense"
> ERwinDatabase.TableDefs.Delete "F_Operating_Expense"
> ' CREATE TABLE "F_Operating_Expense"
> Set ERwinTableDef = ERwinDatabase.CreateTableDef("F_Operating_Expense")
> Set ERwinField = ERwinTableDef.CreateField("f_operating_expense_id",
> DB_INTEGER)

The above code is not script, it's VB using DAO to manipulate the database.
As is you could place it in a standard Access module.

--

Joe