文本导入数据库

[endicott0623]

"为切实加强公安信息网络安全管理工作，规范公安机关人民警察使用公安信息网，落实（ ）的管理责任制，根据《中华人民共和国人民警察法》、《中华人民共和国计算机信息系统安全保护条例》等有关法律、法规，制定本规定。
A 谁主管、谁负责
B 谁使用、谁负责
C 谁负责、谁使用
D 谁负责、谁主管
"|"AB"
"公安机关人民警察(以下简称公安民警)使用公安信息网行为，是指公安民警在公安信息网上进行的（ ）等行为。
A 软硬件安装与开发
B 信息发布
C 信息查阅
D 应用
"|"ABCD"
"对公安民警违反规定使用公安信息网的，应当根据违纪行为的性质、情节和后果，依据本规定给予（ ）。
A 纪律处分
B 警告
C 记过
D 行政处分
"|"D"


像这样有很多题，是在一个文本文件里面，要导入sql中的pubs的testinsert表中，题目对应表中的stnr,答案对应表中的stna,如何让其一一对应插入数据库，并去掉双引号和分隔符，用split能实现吗，我这个好像不行啊，现在的问题就是导入数据库的问题
Dim sr As IO.StreamReader = New StreamReader(txtImports.Text)
Dim str As String = ""
Do While Not sr.EndOfStream
str = sr.ReadLine
Dim stnr As String = ""
Dim stda As String = ""
Dim stra() As String = str.Split("|")
If stra.Length >= 2 Then
stnr = stra(0)
stda = stra(1)
End If
mycom.Connection.ConnectionString = constr
mycon.Open() '打开这个联接
'mycom.CommandText = "insert into testinsert(STNR,STDA) values ('" + stnr + " ' ,' " + stda + " ')"
mycom.CommandText = "insert into testinsert(STNR,STDA) values ('" & str.Split("|")(0) + "','" & str.Split("|")(1) + " ')"
mycom.ExecuteNonQuery() '执行sql语句，并把数据插入到数据库中
Loop
sr.Close()
mycon.Close()


导入应是这样的
stnr
为切实加强公安信息网络安全管理工作，规范公安机关人民警察使用公安信息网，落实（ ）的管理责任制，根据《中华人民共和国人民警察法》、《中华人民共和国计算机信息系统安全保护条例》等有关法律、法规，制定本规定。
A 谁主管、谁负责
B 谁使用、谁负责
C 谁负责、谁使用
D 谁负责、谁主管
公安机关人民警察(以下简称公安民警)使用公安信息网行为，是指公安民警在公安信息网上进行的（ ）等行为。
A 软硬件安装与开发
B 信息发布
C 信息查阅
D 应用
这个是一列
stna
AB
ABCD
这个是一列
这样一一对应下去

[endicott0623]

没人会吗，如何一行一行这样对应下去，试题对应stna,答案对应stda