ช่วยหน่อยครับ code vb.net select report จากการคลิกเลือกจากตาราง

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim objConn As New SqlConnection
        Dim objCmd As New SqlCommand
        Dim dtAdapter As New SqlDataAdapter
        Dim ds As New DataSet
        Dim dt As DataTable
        Dim print As New printchq
        Dim strConnString, strSQL As String
        strConnString = "Data Source=KWAN-PC\SQLEXPRESS;Initial Catalog=Chqprint;Integrated Security=True"
        strSQL = "SELECT * FROM orders WHERE or_id = '" & Me.TextBox1.Text & "'"
        objConn.ConnectionString = strConnString
        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With
        dtAdapter.SelectCommand = objCmd
        dtAdapter.Fill(ds, "Datareorder")
        dt = ds.Tables(0)
        dtAdapter = Nothing
        objConn.Close()
        objConn = Nothing
        print.Show()
    End Sub

   ผมไม่ได้เขียนรัยลงไปครับ ผมไม่รู้เขียนยังไง อิอิ