制作英语小字典

望知道者速速发来 我们的寒假作业 不会做 急急急急急急急急

其实这个很简单呀，就是SQL语句的问题。private sub text2_change()dim rs as adodb.recordsetdim str as stringdim sql as stringstr=text2.textsql="select 单词,音标,词意,注释,... from 词汇表 where 单词 like '"&str&"%' order by 单词"rs.open sql,conn,1,3if rs.recordcount>0 then list1.clear rs.movefirst for i=1 to rs.recordcount list1.additem rs.fields("单词"),i next iend ifend sub