Dim data1 = (DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss"))


Dim data22 = DATEADD("d",-87,data1)

mi restituisce sempre la data per mysql in formato italiano.