Para gurus del .net

[hasan]

HOLA ESTOY BUSCANDO EN INTERNET COMO MOSTRAR EN CRYSTAL REPORTS UN DATATABLE QUE HE CREADO POR CODIGO, ESTE ES MI DATATABLE:

Código:

    Private Sub DETALLES(ByVal P As Integer)
        Dim dataTable As New DataTable
        Dim dataRow As DataRow
        dataTable.Columns.Add("FECHA", GetType(String))
        dataTable.Columns.Add("ORIGEN", GetType(String))
        dataTable.Columns.Add("DESTINO", GetType(String))
        dataTable.Columns.Add("H_S", GetType(String))
        dataTable.Columns.Add("H_L", GetType(String))
        dataTable.Columns.Add("HRS_VLO", GetType(String))
        dataTable.Columns.Add("T_VLO", GetType(String))
        dataTable.Columns.Add("n_p", GetType(String))

        Dim MyCommand As New iDB2Command("Select * From FCPRVDF where ffactu=" & P, New iDB2Connection("datasource=192.168.1.200;UserId=ismael;password=ism0204;defaultCollection=desarrollo"))
        MyCommand.Connection.Open()
        Dim dr As IDataReader = MyCommand.ExecuteReader(CommandBehavior.CloseConnection)

        While dr.Read
            dataRow = dataTable.NewRow
            dataRow.Item("FECHA") = dr("FFCORI")
            dataRow.Item("ORIGEN") = ESP(dr("FCVORI"))
            dataRow.Item("DESTINO") = ESP(dr("FCVDES"))
            dataRow.Item("H_L") = dr("FHRLLV")
            dataRow.Item("HRS_VLO") = dr("FHRVUE")
            dataRow.Item("n_p") = dr("FFACTU")
            dataRow.Item("H_S") = dr("FHRSAV")
            dataTable.Rows.Add(dataRow)
        End While
        MyCommand.Connection.Close()
    End Sub

COMO DIJE LO QUE NECESITO ES MOSTRAR EN CRYSTAL ESTE DATATABLE, SI ALGUIEN PUEDE AYUDARME SE LO AGRADECERE INFINITAMENTE.