How to search access database and display in Listview VB6?


I'm creating a program where the user can search items in an access database and results are displayed in a listview.

When I click search all items are displayed but when I enter an item in the textbox then search nothing is displayed.

This is my code

Private Sub cmdProdSearch_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim list_item As ListItem
Dim itm As ListItem

db_file = db_file & "ProductsDatabase.mdb"
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\VB and     Database\ProductsDatabase.mdb;Persist Security Info=False" & _
"Data Source=" & db_file & ";" & _
"Persist Security Info=False"
Set rs = conn.Execute("Select * from Export")


If InStr(1, rs!Product, txtProduct.Text, vbTextCompare) Then
With ListView1
.View = lvwReport
.FullRowSelect = True
Do While Not rs.EOF
Set itm = .FindItem(txtProduct.Text, lvwText, , lvwPartial)
Set list_item = .ListItems.Add(, , rs!Product)
list_item.SubItems(1) = rs!barcode & ""
list_item.SubItems(2) = rs!quantity & ""
list_item.SubItems(3) = rs!Department
End With
End If
End Sub

I'm fairly sure the problem is with this line

If InStr(1, rs!Product, txtProduct.Text, vbTextCompare) Then

I need fresh eyes for this. Thanks :)


-->>'M not so sure but may be try to look on this post ealier solve it may hel perhaps if not I'll try sometin else please let me know.

Hi Bile! Thanks for your reply. I just removed the If Statement altogether and used a 'like' in the query. Seems to be working now. Thanks again :)
Question Answered as of 3 Years Ago by Bile
This question has already been solved: Start a new discussion instead
Start New Discussion
View similar articles that have also been tagged: