Start New Discussion within our Software Development Community

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 :)

This question has already been answered. Start a new discussion instead.