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
ValidationEvent Handle 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 ValidationEvent Handle(ByVal sender As Object, ByVal args As
ValidationEvent Args)
m_success = False
Console.WriteLi ne((ControlChar s.CrLf & ControlChars.Ta b &
"Validation error: " & args.Message))
End Sub 'ValidationEven tHandle

Dim reader As XmlValidatingRe ader = Nothing
Dim myschema As New XmlSchemaCollec tion()

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

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

'Implement the reader.
reader = New XmlValidatingRe ader(xmlFrag, XmlNodeType.Ele ment,
context)
'Add the schema.
myschema.Add("u rn:bookstore-schema", "Books.xsd" )

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

'Add the handler to raise the validation event.
AddHandler reader.Validati onEventHandler, AddressOf
Me.ValidationEv entHandle

While reader.Read

End While
Console.WriteLi ne("Completed validating xmlfragment")

Catch XmlExp As XmlException
Console.WriteLi ne(XmlExp.Messa ge)
Catch XmlSchExp As XmlSchemaExcept ion
Console.WriteLi ne(XmlSchExp.Me ssage)
Catch GenExp As Exception
Console.WriteLi ne(GenExp.Messa ge)
End Try
End Sub