cria o relatório normal, depois no vb no botão para abrir relatório faz o sguinte:
Private Sub Command1_Click()
'se o CR1 for o objecto crystal
CR1.Datafiles(0) = "CaminhodaBasedeDadosBasedeDados.mdb"
CR1.ReportFileName = "CaminhodoReportReportName.rpt"
CR1.SelectionFormula = "{TabelaClientes.Cliente} = '" & Text1.Text & "'"
CR1.Action = 1
End Sub
TabelaClientes.Cliente é o campo do nome do cliente da tabela Clientes
Text1.Text é o campo que lista o nome do cliente no form.