crystal report不可现实问题，急！

Question

crystal report 执行如下程序时出错："文件 C:\DOCUME~1\ZY\ASPNET\LOCALS~1\Temp\temp_54769edc-12dc-4491-b170-e864e62486d8.rpt 内出错：无效表号。 Dim mydetailrecord As New detailrecord  'rpt文件
            Dim mydataset1 As New DataSet
            Dim mydataadapter1 As SqlClient.SqlDataAdapter
            Dim myconnection As SqlClient.SqlConnection
            myconnection = connect2sqlserver() ' 连接数据库函数
            Dim strsql1 As String = "select device_id as 器具编号,device_name as 器具名称 from device_info_tab where device_id='" + a + "'"
            mydataadapter1 = New SqlClient.SqlDataAdapter(strsql1, myconnection)
            mydataset1.Clear()
            mydataadapter1.Fill(mydataset1)
            
            Dim mydatatable As New DataTable
            mydatatable = mydataset1.Tables(0)
            mydetailrecord.SetDataSource(mydatatable)
            Me.CrystalReportViewer1.ReportSource = mydetailrecord