Read items from SQL Table and populate a table of TextBoxes

I have a Purchase Requisition Form with 10 item rows.

When the form is submitted the general information, who submitted it, Department, etc. goes into the [Requisitions] table in MSSQL and the, up to 10, items go into the [Items] table, related on 'ReqID' which is the PK of the [Requisitions] table and FK of the [Items] table.

So, I have two tables of data that make up the requistions and their items.

I need to pull the data back into the form in case someone wants to re-print the form.

I've got a DataReader set up that pulls the base information from the Requistions table and puts it in the form.  The Items are a bit trickier since there are multiple Item records for each "ReqID".

I'll post the "FetchRecord()" Sub, which works fine, but only grabs from the Requisitions table and I'll post the ADO.Net data Insert Sub that puts the data into the Items table so you can see what's got to come back out.
Fetch from [Requisitions] table and re-populate the form (but without the Items):

Protected Sub FetchRecord()

  Dim DBConn As New SqlConnection("connection string")
  Dim DBCmd As New SqlCommand
  Try
    DBConn.Open()
    DBCmd = New SqlCommand("SELECT DateIssued, DeliverTo, TotalDollars, ReasonForRequest, ISNULL(Remarks,'') AS Remarks, ISNULL(Department,'') AS Department, VendorDate, VendorInfoID, ISNULL(VendorPONO,'') AS VendorPONO, VendorFundingCode, StateContract, StateContractNo, StateContractEndDate, SubmittedBy, DateSubmitted FROM Requisitions WHERE ReqID='" & Session("ReqID") & "'", DBConn) 'Check quotes!
    Dim dr As SqlDataReader = DBCmd.ExecuteReader

    dr.Read()
    lblPurchaseRequisitionNumber.Text = Session("ReqID")
    txtDateIssued.Text = dr("DateIssued")
    txtDeliverTo.Text = dr("DeliverTo")
    txtTOTAL.Text = dr("TotalDollars")
    txtReasonForRequest.Text = dr("ReasonForRequest")
    txtRemarks.Text = dr("Remarks")
    txtDateOfPO.Text = dr("VendorDate")
    txtVendorID.Text = dr("VendorInfoID")
    txtPONO.Text = dr("VendorPONO")
    txtFundingCodeInfo.Text = dr("VendorFundingCode")
    If Not dr("StateContract") = String.Empty Then
      radStateContract.SelectedValue = dr("StateContract")
    Else
      radStateContract.SelectedIndex = -1
    End If
    txtStateContractNo.Text = dr("StateContractNo")
    If Not ((dr("StateContractEndDate")) Is DBNull.Value) Then
      txtStateContractEndDate.Text = Date.Parse(dr("StateContractEndDate"))
    Else
      txtStateContractEndDate.Text = String.Empty
    End If

  Catch ex As Exception
    txtDescription_1.Text = ex.Message
  End Try
    DBCmd.Dispose()
    DBConn.Close()
    DBConn = Nothing

End Sub

Select allOpen in new window

This is the input Sub that puts the Items from the form into the database.  I need to reverse the procedure and pull the records back out and put them on the form again:

Protected Sub SendItemsToDatabase()
  Dim DBConn As New SqlConnection(ConfigurationManager.ConnectionStrings("PurchaseReqConnectionString").ConnectionString)
  Dim DBCmd As New SqlCommand
  Dim sql As String = ""
  Dim arr As New ArrayList

  For i As Integer = 1 To 10
    Dim oTxt_Total As TextBox = CType(Me.form1.FindControl("txtTotal_" & i), TextBox)
    If oTxt_Total IsNot Nothing Then
      If oTxt_Total.Text <> "0.00" AndAlso oTxt_Total.Text <> "" Then
        arr.Add(i)
        sql &= " INSERT INTO Items (ItemNumber, ReqID, Quantity, Description, UnitPrice, SubTotal) VALUES (" & i & ", @varReqID, @txtQTY_" & i & ", @txtDescription_" & i & ", @txtUNIT_" & i & ", @txtTotal_" & i & ")"
      End If
    End If
  Next
  DBConn.Open()
  Try
    If sql <> "" Then
      DBCmd = New SqlCommand(sql, DBConn)
      DBCmd.Parameters.Add("@varReqID", SqlDbType.VarChar).Value = vReqID  'Same ReqID as parent order.  (Foreign Key in SQL table)
      For Each i As Integer In arr
        Dim oTxt_QTY As TextBox = CType(Me.form1.FindControl("txtQTY_" & i), TextBox)
        DBCmd.Parameters.Add("@txtQTY_" & i, SqlDbType.VarChar).Value = oTxt_QTY.Text
        Dim oTxt_Desc As TextBox = CType(Me.form1.FindControl("txtDescription_" & i), TextBox)
        DBCmd.Parameters.Add("@txtDescription_" & i, SqlDbType.VarChar).Value = oTxt_Desc.Text
        Dim oTxt_Unit As TextBox = CType(Me.form1.FindControl("txtUNIT_" & i), TextBox)
        DBCmd.Parameters.Add("@txtUNIT_" & i, SqlDbType.VarChar).Value = oTxt_Unit.Text
        Dim oTxt_Total As TextBox = CType(Me.form1.FindControl("txtTotal_" & i), TextBox)
        DBCmd.Parameters.Add("@txtTotal_" & i, SqlDbType.VarChar).Value = oTxt_Total.Text
      Next
    End If
    DBCmd.ExecuteNonQuery()
  Catch exp As Exception
    Response.Write(exp.Message)
  End Try

  DBCmd.Dispose()
  DBConn.Close()
  DBConn = Nothing

End Sub

Select allOpen in new window

If someone could help me with this, I sure would appreciate it.