vb.net 读取XML 全部数据加入数据库

<xml>
<messageInfo>
<successInfo>0</successInfo>
<message></message>
</messageInfo>
<patientinfo>
<patientname>李</patientname>
<易做图>1</易做图>
<age>6岁7月</age>
<sectionname>1011100</sectionname>
<diagnose>发热原因待查</diagnose>
</patientinfo>
<advice>
<adviceid>00000000000000000000000032348002</adviceid>
<outpatientid>P21265131-0</outpatientid>
<advicetype>2</advicetype>
<advicecode>02249</advicecode>
<advicecontent>5%葡萄糖(大冢)</advicecontent>
<dosage>250</dosage>
<dosageunit>001</dosageunit>
<pathway>089</pathway>
<spec>5% 250ml/袋</spec>
<frequency>001</frequency>
<total>1</total>
<totalunit>袋</totalunit>
<unitprice>6.1</unitprice>
<skinresult></skinresult>
<speed></speed>
<assemblenum>00000000000000000000000032348002</assemblenum>
<memo></memo>
<cdrugset>1</cdrugset>
<writer>90007</writer>
<writetime>20120606134754</writetime>
<prescriptionnum>P21265131-0_2_60_0</prescriptionnum>
</advice>

<advice>
<adviceid>00000000000000000000000032348004</adviceid>
<outpatientid>P21265131-0</outpatientid>
<advicetype>2</advicetype>
<advicecode>02216</advicecode>
<advicecontent>山莨菪碱注射液</advicecontent>
<dosage>2</dosage>
<dosageunit>001</dosageunit>
<pathway>089</pathway>
<spec>10mg 1ml/支</spec>
<frequency>001</frequency>
<total>2</total>
<totalunit>支</totalunit>
<unitprice>.35</unitprice>
<skinresult></skinresult>
<speed></speed>
<assemblenum>00000000000000000000000032348002</assemblenum>
<memo></memo>
<cdrugset>1</cdrugset>
<writer>90007</writer>
<writetime>20120606134912</writetime>
<prescriptionnum>P21265131-0_2_60_0</prescriptionnum>
</advice>
</xml>
--------------------编程问答--------------------

补充：.NET技术 ,  VB.NET