ขอรบกวนเรื่อง VB & Crystal report หน่อยครับ ผมทำ Module มาตัวหนึ่งครับมีโค้ดแบบนี้ครับ

Module DB
    Friend _conStr As String = _
    "Data Source=Book;Initial Catalog=Mydata;User ID=library ;Password = 1234"

End Module

Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
Dim f2 as New Form2
f2._MemberID=TextID.Text
f2.show()
End sub

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data
Imports System.Data.SqlClient

Public Class Nisit_rpt
    Private _conn As SqlConnection

Privale sub Form2_Load() Handles Me.Load
_conn = New SqlConnection(_conStr)
        _conn.Open()

        Dim paramValue As New ParameterDiscreteValue
        paramValue.Value = TxtID1.Text

        Dim paramfid As New ParameterField
        paramfid.ParameterFieldName = "MemberID"
        paramfid.CurrentValues.Add(paramValue)

        Dim paramfields As New ParameterFields
        paramfields.Add(paramfid)

        CRViewer.ParameterFieldInfo = paramfields

        CRViewer.ReportSource = New Nisit()
End sub
End Class