SoloCodigo

Podrias hacerlo por medio de un ODBC, y en tu código utilizar la siguiente línea

  ' ***** Conecta con la Base de datos
  CrystaReportControl.Connect = "DNS=MyDatabase;UID=User;PWD=PassWord"


Espero te sirva de algo.

En las propiedades del proyecto tu puedes indicar de que formulario vas a obtener el ícono para tu aplicación, y para que todos los demas formularios tengan el mismo ícono, puedes poder la siguiente instrucción en el Load de cada Formulario

me.Icon = Principal.Icon

en donde Principal, es el nombre del Formulario de donde estás tomando el Icono, de esta manera si llegaras a cambiar el icono de tu aplicación, no deberas cambiar a todas las formas el ícono, ya que este se actualiza al momento en que se carga el formulario.

espero te sea de utilidad y me puedad decir ti te sirvió

   

cuando en una consulta utilizamos una fecha de esta manera

SELECT * FROM MyTable WHERE Fecha = #01/02/2003#

es necesario utilizar el formato americano (mm/dd/yyyy), ya que es el formato default que reconoce Acces cuando se utiliza entre #, si se utilzara otro método como la función CDate, entonces el formato de fecha dependerá de la configuración regional que tenga cada máquina, con lo que se vuelve más impresiso, y habrá ocaciones en que en lugar de identificar una fecha como 1 de Febrero, la reconosca como 2 de Enero, y el mísmo problema se tendrá para todas las fechas cuyo día sea menor o igual a 12

A continuacion te enmvio un ejemplo de como filtro yo mi información en los reportes de Crystal Reports, es casi como si definieras un WHERE en SQL, solo omitiendo la palabra WHERE, pero cuando utilizas más de dos campos debes de utilizar el conector AND o el conector OR, es importante ver como está nombrado tu campo llave en Crystal Reports, pues de igual manera debes escribir el nombre en tu filtro.

Este ejemplo conecta una base de datos por medio de un ODBC

Private Sub s_Imprimir(byval str_Filtro1 as string)
  Dim str_CadenaConexion As String
  Dim str_Formula        As String

  ' ***** Nombre del archivo que contiene el reporte
  CrystaReportControl.ReportFileName = App.Path & "reporte.rpt"

  ' ***** Conecta con la Base de datos
  CrystaReportControl.Connect = "DNS=MyDatabase;UID=User;PWD=PassWord"

  ' ***** Filtros
  str_Formula = "{MyTabla.MyCampo1} = '" & Trim(str_Filtro1) & "' " & _
                "AND {MyTabla.MyCampo2} = " & Trim(int_Filtro2) & " "
  CrystaReportControl.SelectionFormula = str_Formula

  ' ***** Imprime reporte
  CrystaReportControl.Action = 1
End Sub

Espero te sea de utilidad, me gustaría me avisaras como te fué