循环语句及其前两行改为如下，试试：
RS.Open "select * from 电话薄", Cn, 3, 1
rs.MoveFirst
Do While Not rs.EOF
If InStr(1, rs(姓名"), Me.text1.text, 1) > 0 then
Set addlist = L1.ListItems.Add()
addlist.Text = rs.Fields("id")
addlist.SubItems(1) = RS.Fields("姓名")
addlist.SubItems(2) = RS.Fields("电话")
End if
rs.MoveNext
Loop
注： 应用了Instr()函数
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024