In questo modo riesco a generare la tabella con i campi..... peccato che come faccio a dirgli di prendere anche i record e metterceli dietro?

Grazie
Lelle

Private Sub Genera_Click()
Dim Catalog
Set Catalog = CreateObject("ADOX.Catalog")
Set tbl = CreateObject("ADOX.Table")
Set cat = CreateObject("ADOX.Catalog")

cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & "Data Source='Master.mdb';"


tbl.Name = "Tabella_appoggio_txt"
tbl.Columns.Append Me![Campo1].Value, adVarWChar, 50
tbl.Columns.Append Me![Campo2].Value, adVarWChar, 50
tbl.Columns.Append Me![Campo3].Value, adVarWChar, 50
cat.Tables.Append tbl
Set tbl = Nothing
Set cat = Nothing



End Sub