Imports System

Public Module Module1

    public Class Vehicle

    End Class

    public Class Car 

    Inherits Vehicle

    End Class

    public Class Motorocycle  

    Inherits Vehicle

    End Class

    Public Sub Main()

        dim dataReaderDate as Datetime

        dim fixedDate as DateTime

        dim strDataReaderDate as String = "08/24/2020" ' this would basically be a string that is equal to dr2("IssuedDate").ToString("dd/MM/yyy")

        dataReaderDate = Convert.ToDateTime(strDataReaderDate)

        fixedDate = Convert.ToDateTime("08/31/2020")

        if (DateTime.Compare(dataReaderDate, fixedDate) < 0) 

        end if

        Console.WriteLine("Hello World")

    End Sub

End Module

​

​