文本文件如下：
000001,6226458763125487,女,wang,li,ya ,0909,987123479017837489203748397889283892,MD5A
000002,6226458763125487,女,peng,li ,0909,987123479017837489203748397889283892,YL1A
000003,6226458763125487,男,wang,dong ,0909,987123479017837489203748397889283892,MD5A
000004,6226458763125487,男,chen,jie,bin ,0909,987123479017837489203748397889283892,MD5P
000005,6226458763125487,女,du,li ,0809,987123479017837489203748397889283892,YL1P
000006,6226458763125487,男,sun,xiao,peng ,0809,987123479017837489203748397889283892,MD5A
000007,6226458763125487,男,hao,yan ,0909,987123479017837489203748397889283892,MD3A
000008,6226458763125487,女,wang,jia,luo ,0909,987123479017837489203748397889283892,YL5A
000009,6226458763125487,男,sun,qi,ming ,0709,987123479017837489203748397889283892,MD3B
000010,6226458763125487,女,chen,dong,fen ,1009,987123479017837489203748397889283892,MD9B
.
.
.
大概有一万条。
我在ACCESS中已经建了一个表a,只有字段名没有内容，一共有七个字段，如何把文本文件按字段写入ACCESS表a中？1-6位是字段1，8-23位 是字段2，25-28位是字段3，60-63位是字段4，65-101位是字段5，103-104位是字段6，107-108位是字段7，用MID函数。

谁能帮帮我啊

谢谢您终于有人理我一下了，我是个新手，您能告诉我一下具体的代码吗？还有就是姓名里的逗号不用替换，我只要MID函数把它取出来放进ACCESS就可以了，因为它每一行的长度都是一致的，姓名所占的位数都是25-58位，就是有空格我也要，因为不能改变它的格式。

我这么做它老报错说下标越界，为什么呢
Private Sub Command2_Click()
Dim conn As New ADODB.Connection
Dim mrc() As String
conn.ConnectionString = "provider=Microsoft.jet.oledb.4.0;&_datasource=" & App.Path & "datebase\db1.mdb;persist security info=false"
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
mrc(0) = Mid(temp, 1, 6)
mrc(1) = Mid(temp, 8, 16)
mrc(2) = Mid(temp, 25, 34)
mrc(3) = Mid(temp, 60, 4)
mrc(4) = Mid(temp, 65, 37)
mrc(5) = Mid(temp, 103, 2)
mrc(6) = Mid(temp, 105, 2)
Loop
MsgBox "完"
End Sub

那您帮我看一下上面我的程序哪出了问题总是报错说下标越界