Start by treating them as dates, rather than converting them to strings:
Dim dt As DateTime = DirectCast(dataReader(0), DateTime)
Dim now As DateTime = DateTime.now
LblExpirydate.Text = String.Format("{0:dd/MM/yyyy}", dt)
Label3.Text = now.ToString("dd/MM/yyyy")
Dim diff As TimeSpan = dt - now