关于水晶报表加载失败的问题请教

程序是用数据集作为数据连接，RPT也使用了绝对路径，但加载还是提示失败，请教大大们是什么原因啊？另外想请教怎么能够在程序里对水晶报表的字段赋值啊？
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1.mdb"
Dim str1 As String = "SELECT 市场代码,单号,器具名称,型号规格,最大秤量,生产厂家,强检标签号,检定结论,检定日期,铅封号或不合格原因,证书号 FROM 器具信息表 WHERE 器具名称='电子秤' AND 检定结论='合格' AND 单号='" & TextBox1.Text & "'"
Dim ScDs As New DataSet '证书打印表
ScDs = PopulateDataSet(connectionString, "器具信息表", str1, ScDs)
' 声明并创建一个报表对象
Dim myReportDoc As New ReportDocument()
' 载入报表
myReportDoc.Load("d:\CrytalReport1.rpt")
' 将数据集 ds 传递给报表对象
myReportDoc.SetDataSource(ScDs)
' 绑定报表查看器控件
MyCRV.ReportSource = myReportDoc
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try

End Sub