Tenho um formulário com o cadastro de clientes e um botão imprimir. Ao clicar nesse botão ele verifica o registro atual e imprime apenas esse registro. Já montei o relatório no crystal (versão 10) e consegui chamar ele pelo vb (6.0) , não estou conseguindo filtrar esse registro através do campo código (que é o meu índice na tabela) . Abaixo segue o código do botão imprimir.
Dim RptApp As CRAXDRT.Application
Dim RptObj As CRAXDRT.Report
Private Sub Imprimir_Click()
Set RptApp = New CRAXDRT.Application
Set RptObj = RptApp.OpenReport(App.Path & "egistro.rpt")
CR1.ReportSource = RptObj
CR1.SearchByFormula "{clientes.codigo_cliente}= '" & frm_clientes.txt_codigo.Text & "'"
CR1.ViewReport
End Sub