SoloCodigo

Hola a tod@s Crystal report es mi peor pesadilla ca da vez que arreglo un
error, me sale otro.
Les cmentol oq ue quiero hacer un informe que a su vez contiene un
subinforme que cada uno de estos tiene un dataset y quiero cargar el report
principal cargado cada uno con su dataset voy a poner el codigo a ver si
alguien sabe que hago mal.

 
        Dim dsem As New  monedas()
        Dim drem As System.Data.DataRow

           Dim col As Integer
        Dim aux As String

        Dim command As SqlClient.SqlCommand = New
SqlClient.SqlCommand("banco", SqlConnection1)


        SqlConnection1.Open()

        Dim myreader As SqlClient.SqlDataReader =
command.ExecuteReader(CommandBehavior.CloseConnection)

        While myreader.Read
            aux = (myreader.GetString(0))
        End While

        Dim objxml As New Xml.XmlDocument()

        aux = "<root>" + aux + "</root>"
        objxml.LoadXml(aux)
        myreader.Close()

        Dim objnodesco As XmlNodeList
        objnodesco = objxml.SelectNodes("root/monedas")
        col = objnodesco.Count

        Dim doc As XmlDocument = New XmlDocument()
        doc.LoadXml(aux)

        Dim nsmgr As XmlNamespaceManager = New
XmlNamespaceManager(doc.NameTable)

        Dim nodelist As XmlNodeList
        Dim root As XmlElement = doc.DocumentElement

        nodelist = root.SelectNodes("/root/monedas", nsmgr)

                        drsm = dssm.smonedas.NewRow
                        drsm.Item(x.Attributes(2).Value) =
x.Attributes(3).Value
                        dssm.smonedas.Rows.Add(drsm)

        'Armo Reporte
        Dim moReportSource As New cuadre()

        Dim report1 As New
CrystalDecisions.CrystalReports.Engine.ReportDocument()

        Me.Text = "Reporte"

        moReportSource.SetDataSource(dssb)

        moReportSource.OpenSubreport("monedas.rpt").SetDataSource(dsem)
        moReportSource.OpenSubreport("monedas.rpt").Refresh()


        report1.SetDataSource(dssb)

        Me.Show()
Muchas gracias a todos.Y si es algo dificil encontrar el fallo agradeceria
que alguien si tiene algo hecho parecido un informe consubinforme y dataset
que me lo pasara para ver como lo hkizo, isno es mucha molestia.
Un saludo adninra