是數據庫吧！ 如果是那就非常容易了！
妳最好把這個源代碼程序FA給我，直接給妳修改了可以了。
同97091，用模糊查詢方式（做了如下修改！），
Private Sub Command1_Click()
sql = "select a from xx where name like '%" & trim(Text1.Text) & "%'"
...執行sql語句
list1.Clear'清除後重寫
Do While Not rst.bof
Me.List1.AddItem rst("name")
rst.movenext
Loop
End Sub