The VSData Database Engine

By Michiel de Bruijn

Dr. Dobb's Sourcebook July/August 1997

VsData1.SearchString = Chr(34) & _
 Search$ & Chr(34) & " IN Field(1)"
VsData1.FindFirst
If Not VsData1.EOF Then
    UpdateFields
Else
    MsgBox "Not found!"
    VsData1.MoveFirst
End If

Example 3: Adding a find option.

Back to Article