after refresh double lines (2-4-8-16)

After I use the refresh button on the crviewer the lines from second table (linked in the cr program) in the details section of the .prt file doubles in the crviewer.

I am using CR XI and vb6
I have following code:


sql_string_03 = "SELECT * FROM TblHfdRegel"
Set Geg_rsdata_03 = New ADODB.Recordset
Geg_rsdata_03.Open sql_string_03, cndatabase_02, adOpenKeyset, adLockOptimistic

Set oApp = CreateObject("CrystalRuntime.application.11")
Set oReport = oApp.OpenReport(App.Path & "\printen.rpt", 1)
oReport.Database.SetDataSource Geg_rsdata_03, 3, 1
oReport.DiscardSavedData

CRViewer1.ReportSource = oReport
CRViewer1.Refresh
CRViewer1.ViewReport

Set oReport = Nothing
Set oApp = Nothing

Geg_rsdata_03.Close
Set Geg_rsdata_03 = Nothing

Thanks in advance,
Brian