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