Validate XML Fragments Against an XML Schema in VB

[MG]

The following below is Microsoft sample to validate a XML document. My
question is how can I put the validate errors in DataGrid? Using the
ValidationEventHandle subroutine and adding ListBox control in that event
works find but i can't firgure out to use a DataGrid instead. Can someone
help, Please.?

Dim m_success As Boolean

Public Sub ValidationEventHandle(ByVal sender As Object, ByVal args As
ValidationEventArgs)
m_success = False
Console.WriteLine((ControlChars.CrLf & ControlChars.Tab &
"Validation error: " & args.Message))
End Sub 'ValidationEventHandle

Dim reader As XmlValidatingReader = Nothing
Dim myschema As New XmlSchemaCollection()

Try
'Create the XML fragment to be parsed.
Dim xmlFrag As String = "<author xmlns='urn:bookstore-schema'
xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance'>" & _
"<first-name>Herman</first-name>" & _
"<last-name>Melville</last-name>" & _
"</author>"

'Create the XmlParserContext.
Dim context As New XmlParserContext(Nothing, Nothing, "",
XmlSpace.None)

'Implement the reader.
reader = New XmlValidatingReader(xmlFrag, XmlNodeType.Element,
context)
'Add the schema.
myschema.Add("urn:bookstore-schema", "Books.xsd")

'Set the schema type and add the schema to the reader.
reader.ValidationType = ValidationType.Schema
reader.Schemas.Add(myschema)

'Add the handler to raise the validation event.
AddHandler reader.ValidationEventHandler, AddressOf
Me.ValidationEventHandle

While reader.Read

End While
Console.WriteLine("Completed validating xmlfragment")

Catch XmlExp As XmlException
Console.WriteLine(XmlExp.Message)
Catch XmlSchExp As XmlSchemaException
Console.WriteLine(XmlSchExp.Message)
Catch GenExp As Exception
Console.WriteLine(GenExp.Message)
End Try
End Sub