Problema de duplicidade de dados no Data Report

[Genuss]

Ola galera estou com um problema, que desconheço, se puder preciso de uma luz, então

eu tenho um programa em vb6, um cliente pediu uma ordem de serviço até ai beleza, montei a ordem

mas na hora de imprimir ela esta duplicando apenas umas linha do banco,tipo no banco a tres registros 

mas no relatorio so aparece um e repetindo tres vezes,

alguém sabe como faço isso ou corrijo esse erro

vou posta o codigo ai.......

Private Sub cmdImprimir1_Click()
Dim taborcamentos As Recordset
Set taborcamentos = BANCO.OpenRecordset("SELECT * FROM Ordem WHERE codigo='" & dbCodigo.Text & "' ")
If taborcamentos!Codigo >= dbCodigo.Text & "" Then

    'IMPRIMIR NA IMPRESSORA A4
  
        
        If taborcamentos.RecordCount > 0 Then taborcamentos.MoveFirst 'necessário
        Do Until taborcamentos.EOF
        
     With rptOrdem.Sections("Section1")
     
    .Controls("lblDatas").Caption = taborcamentos!datas
    .Controls("lblCodMerc").Caption = taborcamentos!codmerc
    .Controls("lblMercadoria").Caption = taborcamentos!descricao
    .Controls("lblQunt").Caption = taborcamentos!qtd
    .Controls("lblUnit").Caption = Format(taborcamentos!vlrunitario, "#,##0.00#")
    .Controls("lblCliente").Caption = taborcamentos!Cliente
    .Controls("lblCodigo1").Caption = taborcamentos!Codigo
    .Controls("lblTotal1").Caption = Format(taborcamentos!Total, "#,##0.00#")
    End With
    taborcamentos.MoveNext
    Loop
    Unload rptOrdem.DataSource
    rptOrdem.Show 1
    
    
    
    
    
    End If
   
    
     
End Sub

 

lembrando que já fiz isso com DataEnvironment1 mas o relatorio mostra tudo que esta na tabela, e quero que mostre 

apenas o que esta na DBGrid aguardo por uma luz ai Obrigado.....