Ti ringrazio per la tua risposta...
Sicuramente ho uno spunto da cu partire...
A me serve principalmente creare in un db esistente la tabella e il nome lo posso dare io per default
I nomi dei campi di questa tabella li devo prendere dalla text box ivi compresi i record.
Cerco di essere un pò più chiaro.
Ho un tabella con 50 campi.
Attraverso una combo box leggo i nomi di questi campi.... in "n" input box vado a selezionare il nome dei campi che mi interessano
Con un altro pulsante vorrei creare una tabella che si prende quei campi e record collegati....
Allora ho pensato di sfruttare le tue indicazioni ma ovviamente mi escono un pò di errori

Private Sub Command1_Click()

Dim tbl As New Table
'così si crea una tabella, il Nome è inserito in Text1.Text:
tbl.Name = TabellaPippo
tbl.Columns.Append "Campo1.text", adVarWChar, 50
tbl.Columns.Append "Campo2.text", adVarWChar, 50 tbl.Columns.Append "Campo3.text", adVarWChar, 50
cat.Tables.Append tbl

End Sub

Grazie
Lelle