Set db = OpenDatabase(pathDB)
Set rs = db.OpenRecordset(query)

If rs!idSocio <> txtValue.Text Then
     MsgBox "Il socio " & txtValue.Text & " non è stato trovato!" & Chr(10) & Chr(13) & "Verranno visualizzati i soci successivi.", vbInformation, "Attenzione"
End If
         
While rs.EOF <> True
   lstResults.AddItem rs!idSocio & " - " & rs!cogn & " " & rs!nome
   rs.MoveNext
Wend