مشكله في عملية البحث - نسخة قابلة للطباعة

PHP كود :
Try
            cler()

            Dim sql As String = "select * from tbl1  WHERE HijriID =" & Convert.ToInt32(TextBox1.Text) & ""
            Dim bda As New OleDb.OleDbDataAdapter(sql, con)
            Dim bdt As New DataTable

            bda.Fill(bdt)
            txtid.Text = bdt.Rows(0)("HijriID").ToString
            tex1.Text = bdt.Rows(0)("HijriYear").ToString
            tex.Text = bdt.Rows(0)("b")
            txt_date.Text = bdt.Rows(0)("b1")
            tex3.Text = bdt.Rows(0)("b2")
            tex5.Text = bdt.Rows(0)("b3")
            tex6.Text = bdt.Rows(0)("b4")
            tex7.Text = bdt.Rows(0)("b5")
            tex8.Text = bdt.Rows(0)("b6")
            If (Not bdt.Rows(0)("b7").Equals(DBNull.Value)) Then
                tex9.Text = bdt.Rows(0)("b7")
            End If
            tex10.Text = bdt.Rows(0)("b8")
            If (Not bdt.Rows(0)("b9").Equals(DBNull.Value)) Then
                bb1.Text = bdt.Rows(0)("b9")
            End If
            tex12.Text = bdt.Rows(0)("b10")
            tex20.Text = bdt.Rows(0)("b11")
            tex11.Text = bdt.Rows(0)("b12")
            If (Not bdt.Rows(0)("b13").Equals(DBNull.Value)) Then
                bb2.Text = bdt.Rows(0)("b13")
            End If
            If (Not bdt.Rows(0)("b14").Equals(DBNull.Value)) Then
                bb4.Text = bdt.Rows(0)("b14")
            End If
            If (Not bdt.Rows(0)("b15").Equals(DBNull.Value)) Then
                bb5.Text = bdt.Rows(0)("b15")
            End If
            If (Not bdt.Rows(0)("b16").Equals(DBNull.Value)) Then
                bb7.Text = bdt.Rows(0)("b16")
            End If

            IDLb.Text = bdt.Rows(0)("ID")

            If bdt.Rows.Count > 0 Then
            Else
                MsgBox("لاتوجد معاملات بهذا الرقم")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        btn_Save.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = True
    End Sub