Set rs = db.OpenRecordset("SELECT * FROM pagamenti")

On Error Resume Next

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

End If
rs.MoveNext
Loop