以vb为例:
dim sql as string
sql="create table " & tablename & " (Id int"
for i =1 to fieldcount
   sql=sql & "," namearray(i) & "numeric(10,2)"
next
sql=sql & ")"con.execute sql