Date Format for Listview Items in vb.net

Using DSAd As New OleDb.OleDbDataAdapter(cmdStr, con)
            Using DSDs As New DataSet
                DSAd.Fill(DSDs, "TBLDAILYSALES")

                For i As Integer = 0 To DSDs.Tables(0).Columns.Count - 1
                    Me.lstList.Columns.Add(DSDs.Tables(0).Columns(i).ToString)

                Next

                For j As Integer = 0 To DSDs.Tables(0).Rows.Count - 1
                    Dim lstrow As New ListViewItem

                    lstrow.Text = FormatDateTime(DSDs.Tables(0).Rows(j)(0).ToString(), DateFormat.ShortDate)


                    For k = 1 To DSDs.Tables(0).Columns.Count - 1
                        lstrow.SubItems.Add(DSDs.Tables(0).Rows(j)(k).ToString)
                    Next
                    Me.lstList.Items.Add(lstrow)
                Next
            End Using