I am writing this search routine to find image files and display the filename in a list view. The code below to search is on frmSearch and the listview is on another form called frmMain.
The error I am getting is "wrong number of arguments or invalid property assignment" and it focuses on this:
lngCount = rs.Fields("Cat", "Title", "FileExtension", "FileName")
What am I doing wrong?
Code:Private Sub cmdSearch_Click()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sql As String
Dim res As String
Dim lngCount As Long
Dim lngItem As Long
prgBar.Visible = True
prgBar.Min = 0
prgBar.Max = 10
prgBar.Value = 10
sql = "SELECT * FROM Master WHERE Master.Title = '" & txtTitle.Text & "' and Master.Cat = '" & txtCat.Text & "' and Master.FileExtension = '" & txtFE.Text & "' and Master.FileName = '" & txtIFN.Text & "'"
conn.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & App.Path & "\dbGraphics.mdb;Persist Security Info=False"
conn.CursorLocation = adUseClient
conn.Open
rs.Open sql, conn, adOpenStatic, adLockOptimistic
lngCount = rs.Fields("Cat", "Title", "FileExtension", "FileName")
If rs.EOF Then
MsgBox "No files found for the search criteria.", vbOKOnly, "Search Results"
Else
For lngItem = 1 To lngCount
'Adds the item to the list
frmMain.lvwResults.ListItems.Add , , rs!Cat
'Adds the ListSubItem of the first item added
frmMain.lvwResults.ListItems(lngItem).ListSubItems.Add , , rs!Title
Next
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
