Visual Basic.NET - Ayuda Imprimir Informes Visual 2005

Necesito ayuda; estoy migrando los programas que tengo en Visual 6 a Visual 2005 y en los procesos de imprimir los informes me da el siguiente error:
"No se ha podido cargar el informe"

Este es parte del código:

Dim SqlSelect As String
Dim da As SqlClient.SqlDataAdapter
Dim ds As New DataSet

SqlSelect = "SELECT Articulos.* FROM Articulos ORDER BY Articulos.CodigoArticulo"

Try
Call AbreConexion()
da = New SqlClient.SqlDataAdapter(SqlSelect, Conexion)
da.Fill(ds, "Articulos")
Dim pant_Visordeinformes As New frm_VisorDeInformes
With pant_Visordeinformes
Dim strReportPath As String = "F:\Programa\Data\Rp\cr_Articulos.rptt"
Dim rptDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDocument.Load(strReportPath)
rptDocument.SetDataSource(ds)
rptDocument.FileName = "F:\SajaSQL\Data\Rpt\cr_Articulos.rpt"
.CRV.ReportSource = rptDocument
.Show()
End With
ds.Clear()
Call CierraConexion()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try

¿QUE ESTOY HACIENDO MAL?

Un Saludo, Marcos

Lo he probado con otra bd y funciona bien solo debes quitar una t
Dim strReportPath As String = "F:\Programa\Data\Rp\cr_Articulos.rptt"

Supongo tienes la tabla Articulos dentro de tu DataBase Fields en tu reporte? y los campos q deseas mostrar en tu reporte (seccion Details)
sino no funcionara...............

lo probe con esto y funciono

SqlSelect = "SELECT * FROM Articulos where idarticulo=1 "

Try
conexion.ConnectionString = "Data Source=127.0.0.1;DataBase=ISAliments;Integrated Security=SSPI"
conexion.Open()
da = New SqlClient.SqlDataAdapter(SqlSelect, conexion)
da.Fill(ds, "Articulos")

Dim pant_Visordeinformes As New frm_VisorDeInformes

With pant_Visordeinformes
Dim strReportPath As String = "C:\Sample.rpt"
Dim rptDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDocument.Load(strReportPath)
rptDocument.SetDataSource(ds)
rptDocument.FileName = "C:\Sample.rpt"
.rptViewer.ReportSource = rptDocument
.Show()
End With
ds.Clear()
conexion.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try

Gracias