Private Function convertToSqlDate(ByVal TheDate As Date) As String Dim str As String With TheDate str = (.Year.ToString.PadLeft(2, Convert.ToChar("0")) & "-" & .Month.ToString.PadLeft(2, Convert.ToChar("0")) & Read More...