Set rs = db.OpenRecordset("SELECT * FROM pagamenti WHERE gennaio1 = '" & Text1.Text & "'", dbOpenSnapshot)


If Not rs.EOF And Not rs.BOF And rs("gennaio") = "0" Then
   ListView1.ListItems.Add , , rs("nome") + vbCrLf + "Data:  " + Text1.Text, , 1

End If