Crystal Report - crystal report my peor pesadilla

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 hizo, isno es mucha molestia.
Un saludo adninra