求助 VB 数据库 模糊查询access

Question

请问VB要怎样实现模糊查询access数据库内容呢？ 求解答，我的邮箱是[e-mail]

我希望的效果是，在VB界面输入查询关键词，关键词是用户名中的任意一个或者多个字符，
例如关键词是a，那么查询结果显示在list1的就应该是，abc、abcdefg、eafg，3个用户名。
例如关键词是c，那么查询结果显示在list1的就应该是，abc、cde、abcdefg，3个用户名。

但是我根据网上教程编写的下面的程序没有实现，请大家帮忙解答，谢谢。

用户名 密码
abc 12345
cde 23456
abcdefg 6661
eafg 13
hijk 15178

我输入a，然后查询的结果是eafg 1个而已，应该有3个才对

Dim cnn As ADODB.Connection
Dim rec As New ADODB.Recordset

Private Sub Command_Chaxun_Click()

List1.Clear
List2.Clear

Set cnn = New ADODB.Connection

cnn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = D:\数据库.mdb;Jet OLEDB:Database Password= greekf;Persist Security Info =false"

rec.Open "SELECT * FROM UserTable WHERE 用户名 LIKE '%" & Text_Chaxun.Text & "%'", cnn, adOpenKeyset, adLockOptimistic

Do Until rec.EOF = True

    List1.AddItem rec.Fields("用户名").Value
    List2.AddItem rec.Fields("密码").Value
    rec.MoveNext
Loop
cnn.Close

End Sub

Answer 1

Do Until rec.EOF = True
->
Do While Not rec.EOF