' Get it into a view Dim loView As DataView loView = loData.Tables("Temp").DefaultView ' Sort it loView.Sort = "StartDate" ' Display the user group meetings lcHtml = "" For lnCompteur = 0 To loView.Count - 1 Step lnCompteur + 1 ldDate = loView.Table.Rows(lnCompteur)("StartDate") lcHtml = lcHtml + "<B><A HREF=" + loView.Table.Rows(lnCompteur)("Url") + ">" + _ loView.Table.Rows(lnCompteur)("Title") + "</A></B>" lcHtml = lcHtml + " " lcHtml = lcHtml + "<FONT COLOR=GREEN>" + ldDate.ToString("MMMM dd, yyyy") + "</FONT>" lcHtml = lcHtml + "<BR>" lcHtml = lcHtml + loView.Table.Rows(lnCompteur)("Message") lcHtml = lcHtml + "<P>" Next ConferenceVFP.Text = lcHtml