Ayuda con datatable

[hasan]

Hola espero alguien me oueda ayudar, tengo el siguieten codigo:

Código:

    Private Sub DETALLES(ByVal P As Integer)
        Dim dataTable As New DataTable
        Dim dataRow As DataRow
        Dim ds As New DataSet

        dataTable.Columns.Add(New DataColumn("FFACTU", GetType(Integer)))
        dataTable.Columns.Add(New DataColumn("FCSCFV"))
        dataTable.Columns.Add(New DataColumn("FFCORI"))
        dataTable.Columns.Add(New DataColumn("FCVORI"))
        dataTable.Columns.Add(New DataColumn("FCVDES"))
        dataTable.Columns.Add(New DataColumn("FHRSAV"))
        dataTable.Columns.Add(New DataColumn("FHRLLV"))
        dataTable.Columns.Add(New DataColumn("FPASAT"))
        dataTable.Columns.Add(New DataColumn("FHRVUE"))
        dataTable.Columns.Add(New DataColumn("FHRESP"))
        dataTable.Columns.Add(New DataColumn("FTPVUP"))
        dataTable.Columns.Add(New DataColumn("FTPESP"))
        dataTable.Columns.Add(New DataColumn("DESC_O"))
        dataTable.Columns.Add(New DataColumn("DESC_D"))

        Dim MyCommand As New iDB2Command("Select *" & _
 "From FCPRVDF where ffactu=" & P & " order by FFCORI asc", 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("FFACTU") = dr("FFACTU")
            dataRow("FCSCFV") = dr("FCSCFV")
            dataRow("FFCORI") = dr("FFCORI")
            dataRow("FCVORI") = dr("FCVORI")
            dataRow("FCVDES") = dr("FCVDES")
            dataRow("FHRSAV") = dr("FHRSAV")
            dataRow("FHRLLV") = dr("FHRLLV")
            dataRow("FPASAT") = dr("FPASAT")
            dataRow("FHRVUE") = dr("FHRVUE")
            dataRow("FHRESP") = dr("FHRESP")
            dataRow("FTPVUP") = dr("FTPVUP")
            dataRow("FTPESP") = dr("FTPESP")
            dataRow("DESC_O") = dr("FCVORI")
            dataRow("DESC_D") = dr("FCVDES")
            dataTable.Rows.Add(dataRow)
        End While

        ds.Tables.Add(dataTable)

        ds.Tables(0).TableName = "FCPRVDF"
        dsPc.Merge(ds, False, MissingSchemaAction.Ignore)
        dsPc.AcceptChanges()

        MyCommand.Connection.Close()
    End Sub

lo que hace es realizar una consulta en una bd de db2 y con los resultados llenar un datatable, que posteriormente cargo en un dataset para poder mostrarlo en un reporte de cryatal reports, hasta ahora la consulta la realiza bien, y me devuelve bien mis datos, el problema es que dupilica cada registro que encuentra, es decir, si el select encuentra 5 registros, el datatable almacena 10, esero alguin pueda ayudarme con esto.

gracias