[VB6] Leggera data intera

[Incantatore]

è nato un problema funziona tutto ma la ricerca si basa solo sul giorno nel senso :

sei io metto

dal 14.10.2006 al 17.10.2006



mi aggiunge anche quelli con data 15.11 .2006 quindi calcola solo il giorno e nn da peso ai MESI

come risolvo? ho provato ad usare il LEN(text2.text) ect.. ma facendo cosi non mi funziona più nulla.


aspetto aiuto
grazie


ecco il codice

Dim db As Database
Dim rs As Recordset
Dim WS As Workspace
Dim dbfile As String
Dim pwdstring As String


ListView1.ListItems.Clear


Text2.Text = FormatDate(Text2.Text, dd´mm´yyyy)
Text3.Text = FormatDate(Text3.Text, dd´mm´yyyy)

Set WS = DBEngine.Workspaces(0)
dbfile = (App.Path & "\Data\date.mdb")
pwdstring = "swordfish"
Set db = DBEngine.OpenDatabase(dbfile, False, False, ";PWD=" & pwdstring)
Set rs = db.OpenRecordset("SELECT * FROM pagamenti")


Do While Not rs.EOF
If Not rs.EOF And Not rs.BOF And rs("gennaio") = "0" And rs("gennaio1") >= Text2.Text And rs("gennaio1") <= Text3.Text Or _
Not rs.EOF And Not rs.BOF And rs("febbraio") = 0 And rs("febbraio1") >= Text2.Text And rs("febbraio1") <= Text3.Text Or _
Not rs.EOF And Not rs.BOF And rs("marzo") = 0 And rs("marzo1") >= Text2.Text And rs("marzo1") <= Text3.Text Or _
Not rs.EOF And Not rs.BOF And rs("aprile") = 0 And rs("aprile1") >= Text2.Text And rs("aprile1") <= Text3.Text Or _
Not rs.EOF And Not rs.BOF And rs("maggio") = 0 And rs("maggio1") >= Text2.Text And rs("maggio1") <= Text3.Text Or _
Not rs.EOF And Not rs.BOF And rs("giugno") = 0 And rs("giugno1") >= Text2.Text And rs("giugno1") <= Text3.Text Or _
Not rs.EOF And Not rs.BOF And rs("luglio") = 0 And rs("luglio1") >= Text2.Text And rs("luglio1") <= Text3.Text Or _
Not rs.EOF And Not rs.BOF And rs("agosto") = 0 And rs("agosto1") >= Text2.Text And rs("agosto1") <= Text3.Text Or _
Not rs.EOF And Not rs.BOF And rs("settembre") = 0 And rs("settembre1") >= Text2.Text And rs("settembre1") <= Text3.Text Or _
Not rs.EOF And Not rs.BOF And rs("ottobre") = 0 And rs("ottobre1") >= Text2.Text And rs("ottobre1") <= Text3.Text Or _
Not rs.EOF And Not rs.BOF And rs("novembre") = 0 And rs("novembre1") >= Text2.Text And rs("novembre1") <= Text3.Text Or _
Not rs.EOF And Not rs.BOF And rs("dicembre") = 0 And rs("dicembre1") >= Text2.Text And rs("dicembre1") <= Text3.Text Or _
Not rs.EOF And Not rs.BOF And rs("trimestre") = 0 And rs("trimestre1") >= Text2.Text And rs("trimestre1") <= Text3.Text Or _
Not rs.EOF And Not rs.BOF And rs("semestre") = 0 And rs("semestre1") >= Text2.Text And rs("semestre1") <= Text3.Text Or _
Not rs.EOF And Not rs.BOF And rs("annuale") = 0 And rs("annuale1") >= Text2.Text And rs("annuale1") <= Text3.Text Then


ListView1.ListItems.Add , , rs("nome") , , 1

End If
rs.MoveNext
Loop

grazie