VB 6 Code producing an error...

[denvermuseka]

If Trim(Text4) = "" Then
clsbooks.Search BooksFrm lstBooks, ""

Else
clsbooks.Search BooksFrm lstBooks, Text4.Text

End If
'the code produces an error written:

Run-time error 424
Object Required

[lee123]

maybe you should try this

[CODE]

If Trim(Text4.text) = "" Then
     clsbooks.SearchBooksFrm lstBooks = ""
Else
     clsbooks.SearchBooksFrm lstBooks = Text4.Text
End If

its kinda hard to understand you question, "1stbooks" a field?
if so then the code should be like this

If Trim(Text4.Text) = "" Then
    clsbooks.SearchBooksFrm.lstBooks = ""
Else
     clsbooks.SearchBooksFrm.lstBooks = Text4.Text
End If