The following code suppose to validate and XML file against an existing schema.

Dim fs As New FileStream("XmlFile.xml", FileMode.Open)
Dim vr As New XmlValidatingReader(fs, XmlNodeType.Element, Nothing)
vr.Schemas.Add(Nothing, "XsdFile.xsd")
vr.ValidationType = ValidationType.Schema
While vr.Read()
End While

I noticed that no error is triggered if I change the type of data in the XML file, which means that the validation is not functioning properly.