ricordati che il formato giusto per l'sql è 'dd-mm-yyyy'

dim ls_oggi as string

ls_oggi = Mid(Trim(Today().Date), 1, 2) & "-" & Mid(Trim(Today().Date), 4, 2) & "-" & Mid(Trim(Today().Date), 7, 4)

restituisce una stringa che contiene la data di oggi inseribile in una stringa sql (executenonquery)