Ma tu vuoi creare una tabella (e qui i nomi dei campi sono in un array) o interrogare una tabella ed estrapolare i nomi dei campi in un array?
punto uno:
Dim Tab as Table
Dim NomiCampi as New String[]
Dim txtCampo as string
NomiCampi = ["IntNome","IntCognome","IntIndirizzo","IntTelefono"]
Tab = TuaConnection.Tables.Add("MiaTabella")
For Each txtCampo In NomiCampi
Tab.Fields.Add(txtCampo, db.string)
Next
punto due
Dim Campo As ResultField
Dim Res As Result
Dim NomiCampi As New String[]
Res = TuaConnection.Exec(TuaQuery)
For Each Campo In Res.Fields
NomiCampi.Add(Campo.Name)
Next