如何将.TEXT的文本文件写入数据库中？

vb有一个split函数用来将字符串分解为数组
引用Microsoft Scripting Runtime
dim B() as string
dim I as long
dim T as string
dim oStream as TextStream
dim oTextFile as New FileSystemObject    set oStream = oTextFile.OpenTextFile(sFileName ,ForReading ,False)
    do
        B()=Split(os.ReadLine, ";")
        For i=0 to 3
            .....  '写入数据库
        next i
    loop until oStream.AtEndOfStream