Imports System

Imports System.Data

Public Module Module1

    Public Sub Main()

        Dim dt As New DataTAble

        dt.Columns.Add(New DataColumn("d1", GetType(DateTime)))

        dt.Columns.Add(New DataColumn("d2", GetType(DateTime)))

        Dim dr As DataRow = dt.NewRow()

        Dim now As DateTime = DateTime.Now

        Dim now2 As DateTime = now.AddTicks(1)

        dr("d1") = now

        dr("d2") = now2

        If dr("d1") < dr("d2") Then

            Console.WriteLine("d1 is less than d2")

        End If

        Console.WriteLine("Done")

        Console.WriteLine(now)

        Console.WriteLine(now2)

    End Sub

End Module