Which line gives the error?



meusemailsporcarias{at}yahoo.com.br (VF) wrote in message
news:...
> Thanks Jan, but I have a error message:
> 3001 "invalid argument".
> 
> VF
> 
> Jan Hyde  wrote in message
news:...
> > meusemailsporcarias{at}yahoo.com.br (VF)'s wild thoughts were
> > released on 8 Nov 2004 08:37:50 -0800 bearing the following
> > fruit:
> > 
> > >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
> > 
> > That is probably the most inefficient way of doing that.
> > 
> > Private Sub cmdSearch_Click()
> >  Dim db As Database
> >  Dim rs As Recordset
> >  Dim SearchString As String
> >  Dim SQL as string
> >   SearchString = txtSearch.Text
> > 
> > 	SQL = "SELECT AUTHOR FROM MYTABLE WHERE AUTHOR = '" &
> > searchstring & "'"
> > 
> >     Set db = OpenDatabase(App.Path & "\MYDB002.mdb")
> >     Set rs = db.OpenRecordset(SQL, dbForwardOnly)
> >   While Not rs.EOF
> >     lstResults.AddItem rs!AUTHOR
> >    rs.MoveNext
> >   Wend
> >  rs.Close
> >  db.Close
> > End Sub
> > 
> > HOWEVER, taking the code literally you might as well simply
> > do
> > 
> > lstResults.AddItem searchstring
> > 
> > 
> > 
> > Jan Hyde (VB MVP)
---
þ 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/10/04 7:47:51 AM