Save datatable as XML file??

I have a datagrid "Datagrid1" whos source is a datatable "dtTable"

I keep adding rows to the grid with the following:

Dim rowP As DataRow
rowP = dtPickle.NewRow()
rowP(0) = Me.txtCode.Text
rowP(1) = Me.txtDescription.Text
rowP(2) = Me.txtQuantity.Text
dtPickle.Rows.Add(rowP)

I want to put a button on my form which will save this as an XML file which
I want to use as the source for a crystal report.

Any Ideas???

The DataSet has a pair of methods, .GetXML and .GetXMLSchema - Datatable is SOL. .GetXML and Schema are really simple to use, as are .ReadXML and ReadXMLSchema incidentally.