Visual Basic

Dim strSearch As String<br />
    strSearch = txtSearch.Text<br />
    Dim Cnxn As New ADODB.Connection<br />
    Dim rstNotes As New ADODB.Recordset<br />
    Dim strCnxn As String<br />
    Dim strSQLSearch As String<br />
    <br />
         ' record variables<br />
    Dim mark As Variant<br />
    Dim count As Integer<br />
    <br />
    Set Cnxn = New ADODB.Connection<br />
    strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\RMSC LOGIN\Exhibits.mdb;Persist Security Info=False"<br />
    ' open recordset with default parameters which are<br />
    ' sufficient to search forward through a Recordset<br />
    Cnxn.Open strCnxn<br />
    Set rstNotes = New ADODB.Recordset<br />
    strSQLSearch = "SELECT * FROM Email "<br />
    rstNotes.Open strSQLSearch, Cnxn, adOpenStatic, adLockReadOnly, adCmdText<br />
<br />
    count = 0<br />
    rstNotes.Find "Notes LIKE '" & strSearch & "'"<br />
    <br />
    Do While Not rstNotes.EOF<br />
        'continue if last find succeeded  <br />
        count = count + 1<br />
        ' note current position<br />
        mark = rstNotes.Bookmark<br />
        rstNotes.Find "Notes LIKE 'strSearch'", 1, adSearchForward, mark<br />
        ' above code skips current record to avoid finding the same row repeatedly;<br />
        ' last arg (bookmark) is redundant because Find searches from current position<br />
    Loop<br />
    <br />
    'txtMessage.Text = rstNotes <---not sure about this<br />
    ' clean up<br />
    rstNotes.Close<br />
    Cnxn.Close<br />
    Set rstNotes = Nothing<br />
    Set Cnxn = Nothing<br />
    Close<br />