我已经建立了一个数据库文件01.mdb,里面建立了一个含有7个字段的表（只有字段名无内容），现在我想把一个文本文件通过VB直接写入ACCESS，这个文本文件的格式如下：
000001,62264524342287,女,王丽亚 ,wang li ya ，011,MD5A
000001,62264526451345,男,孙起明 ,Sun qi ming，011,FL5A
...
有一万条。用逗号分隔，如何将文本文件写入ACCESS的表中，并且文本文件的1234567字段分别写入ACCESS表中的1234567字段，另外一个要求是最后一个字段MD5A要分别写在两个字段，MD一个，5A一个。然后再把包含MD的记录输出为一个文本文件，把包含FL的记录输出成一个文本文件。
如何做到？？

这是我刚编的一点儿
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "打开文件" '对话框的标题
CommonDialog1.Filter = "text files(*.txt)|*.txt|all files(*.*)|(*.*)" '过滤器
CommonDialog1.InitDir = 0 '默认的文件夹
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
Dim temp As String
Dim s1 As String '存储MD记录
Dim s2 As String '存储YL记录
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, temp
Dim sLine As String
Dim sItem() As String
Dim a As String, b As String
sLine = temp
sItem = Split(sLine, ",")
sItem(0) =
sItem(2) =
sItem(3) =
sItem(4) =
sItem(5) =
sItem(6) =
sItem(7) = 我不知道这后面应该等于什么
a = Left(sItem(6), 2) '此时a = "MD"
b = Mid(sItem(6), 3) '此时b = "5A"

End Sub

Private Sub Command3_Click()
Unload Me
End Sub

sItem = Split(sLine, ",")
V1=sItem(0)
.
.
.
V8=sItem(7)