dopo varie letture e ricerche ho trovato la soluzione al mio Problema
lo Posto così può servire a Qualcuno che deve risolvere le stesse problema che ho avuto io
codice:
Dim wrkPredefinita As Workspace
Dim dbsNuovo As Database
' Ottiene l'area di lavoro predefinita.
Set wrkPredefinita = DBEngine.Workspaces(0)
NuovoArchivio = "Prova1"
NuovoArchivio = NuovoArchivio & ".mdb"
' Crea un nuovo database cifrato con l'ordine di confronto specificato.
Set dbsNuovo = wrkPredefinita.CreateDatabase(App.Path & "\" & NuovoArchivio, dbLangGeneral, dbEncrypt)
dbsNuovo.Close
Dim dbs As Database
Dim tdf As TableDef
Dim fldID As Field
Dim fldOggetto As Field
Dim fldScaffale As Field
Dim fldCondizione As Field
Dim fldDescrizione As Field
Dim flds_PathImage As Field
Set dbs = OpenDatabase(App.Path & "\" & NuovoArchivio)
Set tdf = dbs.CreateTableDef("ArchivioOggetti")
Set fldID = tdf.CreateField("ID", dbInteger)
fldID.Required = True
Set fldOggetto = tdf.CreateField("Oggetto", dbText)
fldOggetto.Required = True
fldOggetto.Size = 225
fldOggetto.AllowZeroLength = False
Set fldScaffale = tdf.CreateField("Scaffale", dbText)
fldScaffale.Required = True
fldScaffale.Size = 225
fldScaffale.AllowZeroLength = False
Set fldCondizione = tdf.CreateField("Condizione", dbText)
fldCondizione.Required = False
fldCondizione.Size = 225
fldCondizione.AllowZeroLength = True
Set fldDescrizione = tdf.CreateField("Descrizione", dbMemo)
fldDescrizione.Required = False
fldDescrizione.AllowZeroLength = True
Set flds_PathImage = tdf.CreateField("s_PathImage", dbText)
flds_PathImage.Required = False
flds_PathImage.Size = 225
flds_PathImage.AllowZeroLength = True
tdf.Fields.Append fldID
tdf.Fields.Append fldOggetto
tdf.Fields.Append fldScaffale
tdf.Fields.Append fldCondizione
tdf.Fields.Append fldDescrizione
tdf.Fields.Append flds_PathImage
dbs.TableDefs.Append tdf
dbs.Close