怎么才能“一边输入编码，程序会一边搜索，把最接近的记录显示出来”VB6？

各位高手：
   您们好！本人是初学者，有个小问题找了很多资料都找不到解决方法，希望高手们能指点一下，问题如下：
就像附件中的图片所述。
我需要的功能是：在“可输入的Text”中一边输入card_id的编码，程序就会一边搜索我输入的编码，从我输入第一个字符开始就搜索，而且一边搜索，一边把可能是我要搜索的记录放在旁边的Frame1中。
   现在的问题是：上面“MSHFlexGrid1表”中的指针不出现，而且不会跟着我的搜索移动。希望高手们能给我一点启示，程序应该怎么样修改才能做到上述的功能呢？谢谢！
我的代码如下：
Public servername As String
Public serverpath As String
Public pconn As String
Private Sub Form_Load()With Adodc2
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\bao\aaa\112\ren.mdb;Persist Security Info=False"
.RecordSource = "select * from ren order by card_id"
.Refresh
End With
End SubPrivate Sub Text1_Change()
With Adodc2
.RecordSource = "select * from ren where card_id='" & Text1.Text & "'"
.Refresh
If .Recordset.AbsolutePosition <> adPosUnknown Then
    Text2.Text = .Recordset.Fields(1)
    Text3.Text = .Recordset.Fields(2)
    Label23.ForeColor = &HFF&
    Label23.Caption = "已经找到[" & Text1.Text & "]这个代码!"
Else
Label23.Caption = "代码库中没有[" & Text1.Text & "]这个代码,应先编制代码!"
End If
End With
Exit Sub
End Sub