私有子文本2_change()
dim rs as adodb.recordset
dim字符串作為字符串
將sql顯示為字符串
str=text2.text
Sql= "選擇單詞、音標、含義、註釋、...來自詞匯表，其中單詞如“&；字符串& amp% '按單詞排序"
康涅狄格州，1，3
如果rs.recordcount & gt那麽0
list1.clear
rs.movefirst
對於i=1到rs.recordcount
list 1 . additem RS . fields(" word ")，I。
接下來我
如果…就會結束
末端接頭