Tarih kısmı hatalı geliyor buldum tarih kısmını nasıl düzeltebilirim bu şekilde yapılmış.

                If Len(Month(dt1)) > 1 Then 
                    Ay = Len(Month(dt1))
                else
                    Ay = "0" &  Month(dt1)
                End If 

                If Len(Day(dt1)) > 1 Then 
                    Gun = Len(Day(dt1))
                else
                    Gun = "0" &  Day(dt1)
                End If  

                If Len(Month(dt2)) > 1 Then 
                    Ay2 = Len(Month(dt2))
                else
                    Ay2 = "0" &  Month(dt2)
                End If 

                If Len(Day(dt2)) > 1 Then 
                    Gun2 = Len(Day(dt2))
                else
                    Gun2 = "0" &  Day(dt2)
                End If  
                dt1 = Year(dt1) & "-" & Ay & "-" & day(dt1) : dt2 = Year(dt2) & "-" & Ay2 & "-" & day(dt2)

Gelen Tarih Şekli : 2016-2-10

Aslında Gönderdiğim tarih : 10/10/2016