倒—写入数据库的语句我也写完给你了啊
Arr1=Split(Num,"|")
For i=0 to Ubound(Arr1)
Arr2=Split(Arr1(i),",")
'//下面的就是写入数据库,把tablename换成你的数据库里的表名,text1...text3换成相应表的字段
Conn.execute"insert into tablename(text1,text2,text3) values("&Arr2(0)&","&Arr2(1)&","&Arr2(2)&")
Next
Arr1=Split(Num,"|")
For i=0 to Ubound(Arr1)
Arr2=Split(Arr1(i),",")
Conn.execute"insert into tablename(text1,text2,text3) values("&Arr2(0)&","&Arr2(1)&","&Arr2(2)&")
Next