Public Shared Function NullToDate(ByVal Obj As Object) As Date
            Dim IsValid As Boolean = False

            If Obj Is Nothing Then IsValid = False
            If IsDBNull(Obj) = False Then IsValid = False
            If IsDate(Obj) = False Then IsValid = False

            If IsValid = False Then
                Return New Date(Now.ToString("yyyy/mm/dd"))
            Else
                Return Convert.ToDateTime(Obj)
            End If
        End Function