How to Integrate Text Box with DataGris

[Vincentan]

Hi Expertise! I have a problem here, I have a data entry form which create a find button for allow user to select the record by pop up the form with datagrid and return it to main form.

In the grid form I have text box and datagrid, I would like to integerate with datagrid where user keyin the text and datagrid will automatically find and scroll untill find the next near to match record.

Dim ConFind As New ADODB.Connection
Dim RscFind As New ADODB.Recordset
Public GetCode as string

ConFind.ConnectionString = "DRIVER={SQL Server};SERVER=SERVER;UID=sa;PWD=;DATABASE=MISDATA"
RscFind.ActiveConnection = ConFind.ConnectionString
RscFind.CursorLocation = adUseClient

RscFind.Open "Select vehicleno, vowner from vt_master ", , adOpenStatic, adLockOptimistic

Set GrdFind.DataSource = RscFind
GrdFind.Refresh
GetCode = RscFind!vehicleno

the following continue code your some expertise to help me to create