vb6 用ado增加access表的问题
在写一个仓库管理的文件时，遇到增加表格的问题：
下面是参考网上别人写的代码自己改过来的……
For i = Val(Text1(2).Text) To Val(Text1(3).Text) Step 25
AdoData.Open "select ID,'' as SPH, '' as C000 into x from fls", db, adOpenStatic, adLockOptimistic
Next i
我现在遇到如下问题:
1、怎么把ID设置成自动增加的属性，并设置成主键？现在的情况是自动增加，但是增加的数好像不受控制。
2、怎么把文本的长度设置成想要的长度？比如10
3、关于C000，我本来是想把它设置成变量，即C是固定的，后面3位为i值。如C000，C025，C050，C075，C100……
4、表作为流水账，所以表的名字也需要变动且不重复，本来想写成“日期+时间”，但是写的时候，不知道怎么把它做成变量。
先谢谢大家了
[解决办法]
先用 ADOX 添加表，设置字段属性。
然后用 ADO 执行 Insert 语句添加记录。
如果直接使用 Select Into 则新表的字段属性与你 Select 的表相同。
