Dim l_strXMLfile as String = "C:\Test\Example.xml"
Dim l_dsMyDataSet As New DataSet
l_dsMyDataSet.ReadXml(l_strXMLfile)
Dim l_drRow as DataRow
For Each l_drRow in l_dsMyDataSet.Tables("HEALTH_ExaminationRec").Rows
dsSQLDataSet.Tables("HEALTH_ExaminationRec").Add(l_drRow)
daHEALTH_ExaminationRec.Update(dsSQLDataSet)
Next