Crystal Report - Ref. para utilizar Crystal XI en VB.NET express

Buenas estoy migrando una aplicación de VB6 a VB.NET express. Los informes la aplicación antigua los trabajaba con la versión 8 de Crystal. En la nueva version quiero trabaja con la versión XI. Mi problema es que al intentar ejecutar un informe me da el siguiente error: "Excepción de HRESULT: 0x800A502D"

Entiendo que será porque no tengo las referencias bién y el código con la versión XI¨no será así. Si me podeis mandar ejemplos de codigo al correo [email protected] y decirme que referencias son necesarias para trabajar con la versión XI me haceis un favor enorme, la verdad que la cosa es muy urgente. Muchas gracias.

Os paso el código que tengo:

Dim crp As New Crystal.CrystalReport

Try

If txtArticuloDesde.Text > txtArticuloHasta.Text Then
MsgBox("El campo Articulo Desde no puede ser mayor que el campo Articulo Hasta.", MsgBoxStyle.Information)
Else
crp.ReportFileName = cmbInformes.SelectedValue.ToString
crp.Connect = CadenaConexion
If txtArticuloDesde.Text.Length > 0 Then
crp.ParameterFields(0) = "ArticuloDesde;" & txtArticuloDesde.Text & ";true"
Else
crp.ParameterFields(0) = "ArticuloDesde;" & "000000000" & ";true"
End If
If txtArticuloHasta.Text.Length > 0 Then
crp.ParameterFields(1) = "ArticuloHasta;" & txtArticuloHasta.Text & ";true"
Else
crp.ParameterFields(1) = "ArticuloHasta;" & "ZZZZZZZZZ" & ";true"
End If
If txtAutor.Text.Length > 0 Then
crp.ParameterFields(2) = "AutorDesde;" & txtAutor.Text & ";true"
crp.ParameterFields(3) = "AutorHasta;" & txtAutor.Text & ";true"
Else
crp.ParameterFields(2) = "AutorDesde;" & "00000" & ";true"
crp.ParameterFields(3) = "AutorHasta;" & "ZZZZZ" & ";true"
End If
crp.PrinterCopies = CType(nudCopias.Value, Short)
'Si hemos informado la página de inicio de impresión.
If nudInicio.Value > 0 Then
crp.PrinterStartPage = CType(nudInicio.Value, Short)
End If
'Si hemos informado la página de final de impresión.
If nudFin.Value > 0 Then
crp.PrinterStopPage = CType(nudFin.Value, Short)
End If
crp.WindowState = Crystal.WindowStateConstants.crptMaximized
If chkPantalla.Checked = True Then
crp.Action = 1
Else
crp.Action = 0
End If
End If
Catch ex As Exception
MsgBox("Error de Impresión: " & ex.Message)
End Try