这种规律的txt怎么导入到access的表中啊~~~~求助~~~

Question

txt文件是一个题库,格式如下:题目
1+1=_
选择A,1
选择B,2
选择C,3
选择D,4
答案依据
1+1就是=2
答案出处
小学课本第一册
题目
.......怎么将文本导入到access中的表里啊 请尽量详细些 编程不编程都可以 只要能导入就行.

Answer 1

文本文件读入处理以下就可以了，或者在word下替换查找一番，生成一定的格式题目  选择A  选择B 选择C 选择D 答案依据   答案出处
1+1=_ 1      2     3     4     1+1就是=2  小学课本第一册
...
...

Answer 2

Private Sub Form_Load()
    TransformData "c:\tm.txt", "c:\tm2.txt", "|"
End SubSub TransformData(ByVal sInputFile As String, ByVal sOutputFile As String, Optional ByVal sSeparator As String = "|")
    Dim sTmp As String, sLine As String, datarow_cnt As Integer, i As Integer
    datarow_cnt = 10
    Open sInputFile For Input As #1
        Open sOutputFile For Output As #2
        Do While Not EOF(1)
            sLine = ""
            For i = 1 To datarow_cnt
                Line Input #1, sTmp
                If i = 1 Then
                    sLine = sTmp
                Else
                    sLine = sLine & sSeparator & sTmp
                End If
            Next
            Print #2, sLine
        Loop
        Close #2
    Close #1
End Sub使用类似于这样的程序，把你上面的题目格式转换为
题目|1+1=_|选择A,1|选择B,2|选择C,3|选择D,4|答案依据|1+1就是=2|答案出处|小学课本第一册
这样的可以让access导入的格式。在导入时，选择分隔符为"|"，这样就ok了

Answer 3

显示出错误:实时错误'62'
输入超出文件尾调试时是这一行:
Line Input #1, sTmp

Answer 4

原txt题库里的"题目"或者"答案依据"等有的内容比较长   是不是定义的sTmp变量放不开啊~~