CrystalReport1.WindowTitle = "´Título del Reporte"
CrystalReport1.ReportFileName = App.Path & "\Nombre_Reporte.rpt"
CrystalReport1.Connect = ";PWD=contraseña_base_de_datos"
CrystalReport1.SelectionFormula = "{tabla1.campo1}= " & Valor1
' en caso de que requieras filtrar algo
Yo uso bases de datos en Access, definidas en el ODBC por medio de un DNS, lo que pudiera cambiar en caso de que tengas tus archivos asi es el contenido de la propiedad CONNECT. Espero esto te sirva. Saludos.