นี้เป็น code ครับ พอ Run แล้ว Error ตามนี้เลยครับ The report has no tables. Code (VBScript)
da = New Odbc.OdbcDataAdapter(sqlconn, strconn)
da.fill(ds, "test1")
dt = ds.Tables("test1")
MsgBox(ds.Tables("test1").Rows.Count)
cn.Close()
Dim objRpt As New CrystalReport1
[font=Verdana]objRpt.SetDataSource(ds.Tables("test1"))[/font]
CrystalReportViewer1.ReportSource = objRpt
CrystalReportViewer1.Refresh()