vorrei copiare la struttura di una tabella access, compresi
i campi chiave e i vari attributi; cercando su internet ho
trovato il seguente codice:
codice:
Private Sub CopiaTabella() Dim dtb As Database Dim tbo As TableDef Dim tbn As TableDef Dim fld As Field  Set dtb = OpenDatabase("C:\Programmi\MAGAZZINO.mdb") Set tbo = dtb.TableDefs("ARTICOLI") ' tabella da copiare Set tbn = New TableDef  tbn.Name = "ARTICOLI_2008" ' nuova tabella  For i = 0 To tbo.Fields.Count - 1 Set fld = tbo.Fields(i) tbn.Fields.Append (fld) Next  dtb.TableDefs.Append tbn  End Sub
[/CODE]

il problema e' che sul rigo
Set fld = tbo.Fields(i)
da' l' errore "Tipo non corrispondente"

chi mi sa dire come risolvere?