Crystal Report - ¿Como abrir un reporte de CR desde VB?

Estoy empezando con Crystal Reports, a ver si me podéis ayudar en esto:

Acabo de hacer un informe simple en Crystal Reports 6.0 mediante DSN a una BD MySQL.

¿Qué código o qué tengo que hacer para conectar desde mi aplicacion VB ese informe que he hecho?

Visualizarlo es lo que me interesa.

Y ya puestos a preguntar...¿qué código tengo que meter para no tener que usar una DSN sino una cadena de conexión via ODBC 3,51 Driver?

Saludos y muchas gracias por adelantado.

Para conectar tu reporte creado en crystal a visual basic tienes que hacer lo siguiente:
crea un formulario normal inserta ahi el control Viewer del crystal la version que tengas (es un control como un commad button o un text) esto es la parte de diseño del formulario; luego en la parte del codigo escribe lo, siguiente:

<============================================================
Option Explicit
Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report
Private mflgContinuar As Boolean

Private Sub Form_Activate()
If Not mflgContinuar Then Unload Me
End Sub

Private Sub Form_Load()
On Error GoTo Error
Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDRT.ParameterFieldDefinition

'Abrir el reporte

Screen.MousePointer = vbHourglass
mflgContinuar = True
Set crReport = crApp.OpenReport("C:\SISTALMACEN\Reportes\RptArticulos.rpt", 0)

crReport.Database.Tables(1).SetLogOnInfo "NOMBRESERVIDOR", "NOMBRE BASE DE DATOS", "USUARIO", "CONTRASEÑA"

CRViewer.ReportSource = crReport
CRViewer.DisplayGroupTree = True
CRViewer.ViewReport
Screen.MousePointer = vbDefault
Set crParamDefs = Nothing
Set crParamDef = Nothing
Exit Sub
Error:
If Err.Number = -2147206461 Then
Informacion ("El archivo de reporte no se encuentra, restáurelo de los discos de instalación")
Else
Informacion (Err.Description)
End If
mflgContinuar = False
Screen.MousePointer = vbDefault
End Sub

Private Sub Form_Resize()
CRViewer.Top = 0
CRViewer.Left = 0
CRViewer.Height = ScaleHeight
CRViewer.Width = ScaleWidth
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set crReport = Nothing
Set crApp = Nothing
End Sub

<==============================================================
NOTA :
Set crReport = crApp.OpenReport("C:\SISTALMACEN\Reportes\RptArticulos.rpt", 0)
AQUI DEBES ESCRIBIR LA RUTA DE TU REPORTE

ESTE CODIGO ES PARA REPORTES SIN PARAMETROS
SI QUIERES EL CODIGO CON PARAMETROS O ALGUN DETALLE PASAME LA VOZ

hola tengo un problema, tengo elaborados reportes en crystal report pero los vincule con asp, ahora estoy haciendo un proyecto similar pero en php, intento utilizar esos mismos reportes pero ahora vincularlos con php, mi base de datos es la misma y mis reportes son los mismos por lo tanto no quiero hacer otra ves el mismo trabajo.¡necesito que me ayuden porfavor!