ใครช่วยแปลงเรื่องวันที่หน่อยครับ ASP กับ SQL ครับ

<%
DDate = Date()
user= Session("name")
Product1 = Request.Form("textProduct")
SDCode = Request.Form("textSDCode")
Date1 = Request.Form("textDate")
Date2 = Cdate(Date1)
BFDealer = Request.Form("textBFDealer")
QTY = Request.Form("textQTY")

Dim Conn,strSQL,objRec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "Driver={SQL Server};Server=L0820_WUTTISAA1;Database=OVCM;UID=ovcm;PWD=Ninekao9;" 
strSQL = "UPDATE WSDLoyalty SET "
strSQL = strSQL&"QTY = '" & QTY & "' "
strSQL = strSQL&",LastEditDate = '" &DDate& "' "
strSQL = strSQL&",UserEdit = '"& User &"' "
strSQL = strSQL&"WHERE SDCode = '"& SDCode &"' and Product='"& Product1 &"' and BFDealer='"& BFDealer &"' "
strSQL = strSQL&"and DocDate ='"& Date1 &"' "
Set objExec = Conn.Execute(strSQL)