作業環境 OS：XP SP3 、Visual Studio 2010(使用VB開發)
下列是我的程式碼
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Windows.Forms
Imports System.Collections
Imports System.Data.OleDb

Public Class Form1
Dim str As String = "Provider=sqloledb;Data Source=dbserver;Initial
Catalog=MG;User Id=sa;Password=11350;"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Form2.Show()
Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(str)
conn.Open()
Dim str1 As String = "select MB001,MB002,MB003,MB032,MA002,MB038
from MG.dbo.INVMB left join MG.dbo.PURMA on MB001 = MA002 WHERE
MB032 <> ' and MB001 ='1201K50001'"
Dim adp1 As OleDb.OleDbDataAdapter = New
OleDb.OleDbDataAdapter(str1, conn)
Dim set1 As DataSet = New DataSet adp1.Fill(set1, "1a")
DataGridView1.DataSource = set1.Tables("1a")
Dim cryRpt As New ReportDocument
cryRpt.Load("C:\test1\WindowsApplication1\WindowsApplication1\
CrystalReport1.rpt")
cryRpt.SetDatabaseLogon("sa", "11350")
cryRpt.SetDataSource(set1.Tables("la")) '---此段似乎沒有動作
Form2.CrystalReportViewer1.ReportSource = cryRpt

End Sub
End Class

上面是我查詢網路資料所寫出來的
我的SQL語法篩選出來應該只有一筆資料，在DataGridView也確實只顯示一筆資料，可是當我把Crystal Report 的來源也設定為此SQL語法，但是執行時，CrystalReportViewer看到的卻是把整個資料庫的資料全部抓出來了，我在Crystal Report上也只是擺上了這6個B001,MB002,MB003,MB032,MA002,MB038攔位而已，煩請幫我看看有哪邊虛曜再做修正的，執行時媒出現任何錯誤訊息