Vb.net UI

Imports System.Data
Imports System.Data.SqlClient

Imports Gates.DA
Imports Gates.BL

Public Class ctrQuerybyPN

    Dim _DBTrans As DBTransaction
    Dim _BL As Gates.BL.Common

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connec As String = Gates.BL.clxMain.CONNECTIONSTRING
        Dim reDS As New DataSet
        '_DBTrans = New DBTransaction(connec)
        _BL = New Common(connec)
        reDS = _BL.QueryByPN(TextBox1.Text)

        DataGridView1.DataSource = reDS.Tables(0)
        DataGridView1.Enabled = True

 

    End Sub
End Class