Private zFind As ADODB.Recordset
Private CmPro As ADODB.Command

Private Sub Form_Load()
    Set CmPro = New ADODB.Command
    CmPro.ActiveConnection = CurrentProject.Connection
    InitBrowser
End Sub

Private Sub txtFind_Change()
    CmPro.CommandText = "zFindTrd"
    CmPro.CommandType = adCmdStoredProc
    CmPro.Parameters.Refresh
    Set zFind = CmPro.Execute(, Me.txtFind.Text & "%")
    If zFind.EOF = False Then
        Call.AddLog
    Else
        Call.WriteBr
    End If
End Sub

PARAMETERS StrFind Text (  255  );
SELECT TOP  25  Tb.TbNx AS FindID, Tb.TbNmR AS FindNm
FROM Tb
WHERE (((Tb.TbNmR) Like [StrFind]));