vb把txt文件数据写入access表中

'字段没有给出，假定一行内容为描述的一到六，1到6，汉字数字字符数量相等的话：
'Visual Basic 6.0 Code

Sub SaveText(ByVal strFile As String, cnn As ADODB.Connection)
Dim s As String
Dim a() As String
Dim i As Long, j As Long

Open strFile For Binary As #1
s = Space(LOF(1) - 1)
Get #1, , s

Close #1

a = Split(s, "，") '注意你给出的逗号，半全角不同，假定是全角
s = "INSERT INTO table1 (字段名1,字段名2,字段名3,字段名4,字段名5,字段名6) VALUES ("

For i = 6 To 11 '(UBound(a) + 1) / 2 To UBound(a)
s = s & a(i)
If i < 11 Then s = s & ","

Next i
s = s & ")"
cnn.Execute s

End Sub