Dim numero As Integer
numero = Text1(0)
Dim miReport As CRAXDDRT.Report
Dim miCRApp As New CRAXDDRT.Application
Set miReport = miCRApp.OpenReport(App.Path & "\experiencia.rpt")
'ESTOU COM PROBLEMA NA LINHA ABAIXO
With miReport
.RecordSelectionFormula = "{cadf003.fun001}=" & numero & ""
End With
'ATE AQUI
End With
Set miCRApp = Nothing
Set miReport = Nothing
ESSA É MANEIRA CORRETA DE USAR O RECORD.SELECTION COM BASE
DE DADOS DBF .
