This search engine works very well with a 82kb database (MYDB001.mdb),
but it freezes with another file with 1590kb (MYDB002.mdb). What's
wrong? Is "mydb002" too large? Any tip to refine this code?
--------------------------------------------------------------------------------
Private Sub cmdSearch_Click()
 Dim db As Database
 Dim rs As Recordset
 Dim SearchString As String
  SearchString = txtSearch.Text
    Set db = OpenDatabase(App.Path & "\MYDB002.mdb")
    Set rs = db.OpenRecordset("Select AUTHOR From MYTABLE", , _
             dbForwardOnly)
  While Not rs.EOF
   If rs!AUTHOR = SearchString Then
    lstResults.AddItem rs!AUTHOR
   End If
   rs.MoveNext
  Wend
 rs.Close
 db.Close
End Sub
--------------------------------------------------------------------------------
Thanks,
VF
---
þ RIMEGate(tm)/RGXPost V1.14 at BBSWORLD * Info{at}bbsworld.com

---
 * RIMEGate(tm)V10.2áÿ* RelayNet(tm) NNTP Gateway * MoonDog BBS
 * RgateImp.MoonDog.BBS at 11/8/04 12:42:24 PM