مشکل در جواب یک جستجو

[whisper]

سلام دوستان من یه search دارم می نویسم که از روی یک فرم دیگر انجام میشه و میخوام نتیجه روی لیست باکس چاپ بشه ولی به مشکل خوردم یعنی نمیدونم نتیجه جستجو رو چه جوری نمایش بدم برنامه رو پایین میزارم اگه ممکنه کمک کنید راهی پیدا کنم
راستی من تازه کارما..

Dim strbookname As String
Dim vntrec As Variant

frmAddRemove.AdoLibrary.Recordset.MoveFirst
strbookname = TxtBookName.Text
If TxtBookName = "" Then
Animation1.Visible = True
Animation1.Open App.Path & "\search.avi"
Animation1.Play

Call MsgBox("áØÝÇ äÇã ˜ÊÇÈ ãæÑÏ äÙÑ ÎæÏ ÑÇ æÇÑÏ ˜äíÏ!", vbInformation, "ÏÞÊ ˜äíÏ")
GoTo en
End If

For j = 0 To frmAddRemove.AdoLibrary.Recordset.RecordCount

If frmAddRemove.AdoLibrary.Recordset.Fields("bookname") = Trim(strbookname) Then
lstSearch.AddItem ("bookname")
End If
frmAddRemove.AdoLibrary.Recordset.MoveNext
Next j

If lstSearch.ListCount = "" Then
Call MsgBox("Òíäå ãæÑÏ äÙÑ ÔãÇ íÇÝÊ äÔÏ!", vbInformation, "ÏÞÊ ˜äíÏ")
TxtBookName.Text = ""
End If

en:
Animation1.Stop
Animation1.Visible = False

TxtBookName.SetFocus

End Sub

[whisper]

راستی من از ado استفاده کردم

[whisper]

دوستان اگه ممکنه یکی یه نگاهی به این SEarch ما بندازه برام خیلی مهمه چون شنبه باید پروژه تحویل بدم کلی برنامه ایراد میگیره