求段vba代码:txt导入access?

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

点击下载此附件