how i can fill dataset using xmldocument object

See more:

VB

Hi..

please check below code and let me know where i am missing..
because xmldoc contain data and when i m going to fill it in dataset it not filling it in.

 Public Function RegisterComplaint(ByVal strInputXml As String) As String
 Dim xmlDoc As New XmlDocument()
              Try
            xmlDoc.PreserveWhitespace = True
            xmlDoc.LoadXml(strInputXml)
        Catch e As Exception
            Console.WriteLine(e.Message)
        End Try
        Dim cspParams As New CspParameters()
        cspParams.KeyContainerName = "XML_ENC_RSA_KEY"
        Dim rsaKey As New RSACryptoServiceProvider(cspParams)
        Try
 ClassXml.Decrypt(xmlDoc, rsaKey, "rsaKey")
  Dim ds1 As New DataSet
  ds1.ReadXml(New XmlNodeReader(xmlDoc))
 Catch e As Exception
            Console.WriteLine(e.Message)
        Finally
            rsaKey.Clear()
        End Try
        Return xmlDoc.OuterXml
End Function

as i used xmldoc.save("file.xml") and found data like

<Complaints>
<Table>  
<UserID>1</UserID>   
<Name>suhas</Name>   
<Password>7DCB7FB26F37871F5E2A5D7A41A</Password>   
<Email />   
<LoginID>ssd</LoginID>   
<Type>Others</Type>   
<ACTIVE_FLG>A</ACTIVE_FLG>   
<LAST_SIGN_IN>2008-06-20T10:23:28.717+05:30</LAST_SIGN_IN>   
<LAST_PWD_CHG>2008-06-12T14:39:15.903+05:30</LAST_PWD_CHG>   
</Table> 
</Complaints>

How can i fill xmldocument in dataset??
thanks in advance...