怎么对TEXE1.TEXT中多行文本进行逐行查询数据库，并返回数据库中相匹配的文本字段对应的结果

如何对TEXE1.TEXT中多行文本进行逐行查询数据库，并返回数据库中相匹配的文本字段对应的结果
如何对TEXE1.TEXT中多行文本进行逐行查询数据库，并返回数据库中相匹配的文本字段对应的结果

比如：TEXE1.TEXT中文本如下：（每行一题）
我国《刑事诉讼法》规定,被告人的权利有？
非全日制用工是《劳动合同法》规定的（）。
艾滋病检测实行（）制？
谁对子女具有法定抚养义务？


数据库TK.mdb中表名tk中的“题目”字段含有上诉题目（也是每行一题）
“答案”字段有对应题目的答案，想在希望能点击某按钮后程序能对TEXE1.TEXT中多行文本进行逐行查询数据库，并将每行文本题目对应的数据库中答案逐行显示到TEXT2.TEXT中

请问该如何实现？
------解决思路----------------------
dim i as integer,w1 as string
ww=split(text1.text,vbcrlf)
for i=0 to ubound(ww)
w1=w1 & iif(w1<>"",vbcrlf,"") & sql(ww(i))
next
text2.text=w1

注：sql(ww(i))表示根据ww(i)从数据库中找到的对应的值