sort listview by date

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        ListView1.View = View.Details
        ListView1.Columns.Add("Expiry Date", 130)
        ListView1.Columns.Add("Customer Name", 130)
        ListView1.GridLines = True


        Dim DateToday As DateTime = Date.Today
        Dim DatePlusThreeMonths = DateToday.AddMonths(+3)
        Dim objOutlook As Outlook._Application
        objOutlook = New Outlook.Application()
        Dim objNS As Outlook._NameSpace = objOutlook.Session
        Dim objFolder As Outlook.MAPIFolder = objNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
        Dim objContacts As Outlook._Items = objFolder.Items
        Dim DASLstring As String = """http://schemas.microsoft.com/mapi/string/{00020329-0000-0000-C000-000000000046}/Email%20Support%20expires/0x00000040"""
        Dim strRestrictCriteria As String = "@SQL=( " & DASLstring & " IS NOT NULL) AND (" & DASLstring & " < '" & DatePlusThreeMonths.Day & "/" & DatePlusThreeMonths.Month & "/" & DatePlusThreeMonths.Year & "') AND (" & DASLstring & " > '" & DateToday.Day & "/" & DateToday.Month & "/" & DateToday.Year & "')"
        Dim objADatumitems As Object = objContacts.Restrict(strRestrictCriteria)
        Dim objADatumitem As Outlook.ContactItem
        For Each objADatumitem In objADatumitems

            ListView1.Items.Add(New ListViewItem({objADatumitem.UserProperties.Find("Email Support expires").Value, objADatumitem.FullName}))

        Next

    End Sub

Darren Rose