help

[Joblack84]

Salve

sto creando un programma in vb6 e sono incappacto in un piccolo errore il segueste codice:

'dimensionare variabili
Dim DBagenda As Database
Dim RDSagenda As Recordset
Dim QUERY As QueryDef
Dim OGGI As Date
OGGI = Date
'cercare gli eventi di oggi
Set DBagenda = OpenDatabase("C:\Programmi\Dataproject\Sistema\dbagenda.mdb")
Set RDSagenda = DBagenda.OpenRecordset("select [ID agenda] from tabagenda where data = #" & OGGI & "#")
Relazione = RDSagenda("ID agenda")
'creare la tabella eventi
DBagenda.QueryDefs.Delete ("qrytabeventi")
Set QUERY = DBagenda.CreateQueryDef("qrytabeventi", "select*from tabeventi where idragenda = " & Relazione & " ")

Label2.Caption = OGGI

nel database in cui ho creato un campo data con formato data. la query che creo mi da un problema se la data(la variabile oggi) va dal giorno 1 al 12 mi da come query nel database "select [ID agenda] from tabagenda where data = nese/giorno/anno" se il giorno parte da 13 a 31 la querry risulta "select [ID agenda] from tabagenda where data = giorno/mese/anno" cioè mi inverte il mese e il giorno dipendentemente da la serie di giorni da 1 a 12 e 13 a 31.

come dovrei risolvere tale problema?