Ciao a tutti questo è proprio un mistero...

Ho fatto un progetto vb6 dove una SELECT seleziona gli appuntamenti presenti in un db access, questi appuntamenti li seleziona in base alla data...
Per esempio fa l'elenco degli appuntamenti della settimana e li stampa in una list...
Il problema è che la query che fa è giusta, pero non mi visualizza tutti gli appuntamenti, ma certi giorni li salta, cosi senza motivo, ho fatto il debug passo a passo ed ho visto che quando esegue la query che seleziona gli appuntamenti in base alla data, non sepre li seleziona::

Ecco il codice

oggi = Date

ng = Format(oggi, "Dddd")


'PROCEDURA PER TROVARE CHE GIORNO E IL LUNEDI DI QUESTA SETTIMANA
Select Case ng

Case "lunedì":
data1 = oggi
Case "martedì":
data1 = DateAdd("d", oggi, -1)
Case "mercoledì":
data1 = DateAdd("d", oggi, -2)
Case "giovedì":
data1 = DateAdd("d", oggi, -3)
Case "venerdì":
data1 = DateAdd("d", oggi, -4)

End Select




'PROCEDURA CHE SELEZIONA GLI APPUNTAMENTI DEL DB

For i = 1 To 5 'ciclo dal lunedi al venerdi

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open cn

SQL = "SELECT Titolo FROM APPUNTAMENTI WHERE (Data=#" & data1 & "#)"
rs.Open SQL, conn



While Not rs.EOF


titolo = rs.Fields(0)
List1(i - 1).AddItem titolo




rs.MoveNext

Wend

rs.Close
conn.Close

Set conn = Nothing
Set rs = Nothing

'data1 = DateAdd("d", data1, 1)
data1 = data1 + 1 'incremento la data per i giorni successivi

Next i



facendo il debug, quando arrivo alla query certe volte salta, come se non fosse vera...premetto che nel mio Db ho messo degli appuntamenti per tutta la settimana, percio esistono e li deve trovare!!

Chi vuole aiutarmi a risolvere questo mistero???

Grazie