如何用vb动态创建数据库的表？

要求一个表，但是字段不确定，就是列数根据需要可变，怎么办？（更难的问题就是，根据我的需要，字段名是在程序运行后，我输入什么他就显示什么，并可以不断增加字段，太复杂了，可以先解决第一个问题）
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '不能把这里的4.0改为3.51
pstr = pstr & "Data Source=" & fm
cat.Create pstr '创建数据库
Dim tbl As New Table
cat.ActiveConnection = pstr
tbl.Name = "MyTable" '表的名称
tbl.Columns.Append "name", adVarWChar, 8
For i = 2 To 6
tbl.Columns.Append "i", adInteger '表的第一个字段
Next i

cat.Tables.Append tbl '建立数据表
conn.Open pstr
rs.CursorLocation = adUseClient
我的i那个地方出错， tbl.Columns.Append "i", i在表中不能显示为2.3.4.5.6，所以不能使用循环语句创建表

For i = 2 To 6
tbl.Columns.Append "MyField" & i, adInteger '表的第i个字段
Next i

可以使用循环语句创建表

1.创建数据库 选择菜单"外接程序"->"可视化数据管理器"->打开"visdata"->文件->"新建"->microsoft access->选择数据库版本(version 7.0 mdb)->输入数据库名->点保存按钮-> 2.创建表 右键点击数据库窗口中的properties->新建表->输入表名并逐一添加字段的名称、类型、大小、缺省值等信息->生成表

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息