How To Insert Date To Another Db Using Vba

This is what i am tring to do. I generated system catalog with its poplution and created seperate .mdb file for
the meta database and now i need to insert to it using following funciton.:

"InsertSystemCatalogPopulation(db, metadb)''

i be happy if some one show me how i can
insert the meta data to created db. Thanks


Here is the code :
---------------------------
Private Sub Command0_Click()
CreateSystemCatalog
End Sub


Sub CreateSystemCatalog()
Dim metadb As Database, db As Database
Dim metadbname As String
Set db = CurrentDb()
metadbname = Left(db.NAME, Len(db.NAME) - 4) + "_meta.mdb"
Set metadb = DBEngine.Workspaces(0).CreateDatabase(metadbname, dbLangGeneral)
Call CreateSystemCatalogTables(metadb)
Call InsertSystemCatalogPopulation(db, metadb)
End Sub

Sub CreateSystemCatalogTables(metadb As Database)
metadb.Execute "CREATE TABLE SysTables( " & _
"tablename Char(30) NOT NULL, " & _
"PRIMARY KEY (tablename));"

metadb.Execute "CREATE Table SysColumns( " & _
"tablename Char(30) NOT NULL, " & _
"columnname Char(30) NOT NULL, " & _
"required Logical NOT NULL, " & _
"type Char(10) NOT NULL, " & _
"length Smallint, " & _
"PRIMARY KEY (tablename, columnname))"

metadb.Execute "CREATE TABLE SysKeys( " & _
"tablename Char(30) NOT NULL, " & _
"keyname Char(30) NOT NULL, " & _
"keytype Char(9) NOT NULL, " & _
"tablename_prim Char(30) NOT NULL, " & _
"PRIMARY KEY (tablename, keyname));"

metadb.Execute "CREATE TABLE SysKeyColumns( " & _
"tablename Char(30) NOT NULL, " & _
"keyname Char(30) NOT NULL, " & _
"keycolumn_seqno Char(30) NOT NULL, " & _
"columnname Char(30) NOT NULL, " & _
"PRIMARY KEY (tablename, keyname, columnname), " & _
"UNIQUE (tablename, keyname, keycolumn_seqno));"
metadb.Execute "ALTER TABLE SysColumns " & _
"ADD FOREIGN KEY (tablename) REFERENCES SysTables;"

metadb.Execute "ALTER TABLE SysKeys " & _
"ADD FOREIGN KEY (tablename) REFERENCES SysTables;"

metadb.Execute "ALTER TABLE SysKeys " & _
"ADD FOREIGN KEY (tablename_prim) REFERENCES SysTables;"

metadb.Execute "ALTER TABLE SysKeyColumns " & _
"ADD FOREIGN KEY (tablename, keyname) REFERENCES SysKeys;"

metadb.Execute "ALTER TABLE SysKeyColumns " & _
"ADD FOREIGN KEY (tablename, columnname) REFERENCES SysColumns;"
End Sub
-------------------