Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AConnection = New SqlConnection("Data Source=ERPSERVER;Initial Catalog=XH201101;USER ID=sa;PWD=p@ssw0rd")
AConnection.Open()
Dim da As New SqlDataAdapter("Select MD001 BOM,MD002 序号,RTRIM(MD003) 品号 from BOMMD Where MD003='" & TextBox1.Text & " '", AConnection)
Dim ds As New DataSet()
da.Fill(ds, "BOMMD")
Dim reportPath As String = Application.StartupPath + "\rptClient.rpt.rpt"