需导入的文本格式如下，分隔符是|
中中|123|321|123
大大|123|321|123
在在|123|321|123
工工|123|321|123
国国|123|321|123
中国|123|321|123
access数据库中有如下字段的表文件
姓名  基础 效益 综合
实际导入的时候，可能文本中不只4列，相应的数据库中的表也不只姓名、基础、效益、综合4个字段，
求段vba代码，怎么才能将以上的文本文件中的内容导入数据库中。
附件中的access数据库文件，我做了个导入的窗体，求个代码。
各位大侠，最好能是手动选择路径及文件的，别固定路径和文件名！
谢谢！

http://zhidao.baidu.com/question/37567185

给个我想的思路啊。

读一行，然后分解，可以使用 split 命令
中中|123|321|123
分解为一个 一维数组。
1、使用SQL命令添加记录方式
   然后定义二个变量，
一个保存 字段名，一个保存内容。
当 数组维数大于字段序号，则组合内容， 最后取完数组完，提交给数据库进行保存。

2、使用添加命令。
当数组维数大于字段序号，则该字段给值，最后取完数后，更新。

'--------SQL----------
dim fj() as string
dim M as string    'M为一行的内容
dim SQLF as string '保存字段名
dim SQLD as string '保存值
....

fj=split(M,"|")
if ubound(fj)>=0 then     '最少有一个元素
   sqlf=sqlf & "," & "姓名"
   sqld=sqld & "," & fj(0)        '这里要进行字符串加引号处理，此处省略，你测试时必须增加
end if
if ubound(fj)>0 then     '最少有二个元素
   sqlf=sqlf & "," & "基础"
   sqld=sqld & "," & fj(1)        
end if

........
最后组合为SQL 的添加记录命令。