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