RE:Listar un solo registro con Crystal Report
Mira luis usa el codigo normal para llamar un reporte y lo que tenes que hacer es desdde VB saber ya cual es el registro activo y solo tenes que enviarlo en el ReplaceSelectionFormula, exscogiendo un campo que identifique al registro activo, bueno esto lo que se me ocurre talvez te ayude a plantear mejor tu problema.
Frmmenu.CRreportes.Reset
Frmmenu.CRreportes.DiscardSavedData = True
bd = "\\PC_NUILA\Proyecto Inventario Activos\BD\asiginve.mdb"
Frmmenu.CRreportes.DataFiles(0) = bd
Frmmenu.CRreportes.ReportFileName = App.Path + "\reporteasignacion.rpt"
Aqui --> Frmmenu.CRreportes.ReplaceSelectionFormula ("{empleado.cod_empleado} = '" & cod & "'")
Frmmenu.CRreportes.WindowState = crptMaximized
Frmmenu.CRreportes.Destination = 0
Frmmenu.CRreportes.WindowShowPrintSetupBtn = True
Frmmenu.CRreportes.Action = 1
suerte