best way to handle a loop

I am writing an application that extracts invoice data from a table.  My problem is that an invoice can contain more than one line of data.  I am counting (x) but don't know how to display in the textboxes the first result set.  I believe an array is the solution, but have never ever understood arrays.  I have 26 elements (text boxes) does this mean an arrary(26) or array(1, 26).  then how do I loop and populate the text boxes with the first result set?


Dim ssql As String
Dim esql As String
Dim strvar As String
Dim datevar As String
Dim rs As ADODB.Recordset
Dim rse As ADODB.Recordset
Dim msgr As VbMsgBoxResult
Dim x As Integer

strvar = txtInv.Text
x = 0
    ssql = "SELECT * "
    ssql = ssql & "FROM CADORDERS "
    ssql = ssql & "where SOPNUMBE = '" & strvar & "'"
       
    Set rs = New ADODB.Recordset
        With rs
            .Open ssql, CN, adOpenDynamic
       
        Do
            If rs.BOF And rs.EOF Then
                msgr = MsgBox("Invoice not Found, Try again?", vbYesNo)
                   If msgr = vbYes Then
                        MsgBox "Please check Invoice Number and try again"
                        txtInv.Text = ""
                        txtInv.SetFocus
                        Exit Function
                    Else
                        msgr = MsgBox("Not in Database, would you like to add invoice?", vbYesNo)
                            If msgr = vbYes Then
                                cmdArec.Enabled = True
                                cmdArec.SetFocus
                                Exit Function
                            Else
                                msgr = MsgBox("would you like to exit program?", vbYesNo)
                                    If msgr = vbYes Then
                                        CN.Close
                                        Unload Me
                                        End
                                    Else
                                        txtInv.Text = ""
                                        txtInv.SetFocus
                                        Exit Function
                                    End If
                            End If
                    End If
            Else
                   
                    txtPPCad.Text = rs(3)
                    txtShipD.Text = rs(0)
                    txtFrtCad.Text = rs(4)
                    txtOrd.Text = rs(1)
                    txtTaxCad.Text = rs(5)
                    txtTOthCad.Text = rs(6)
                    txtDAmtCad.Text = rs(9)
                    txtIFCad.Text = rs(10)
                    txtTInvCad.Text = rs(8)
                    txtBgstCad.Text = rs(11)
                    txtCgstCad.Text = rs(12)
                    txtOCCad.Text = rs(13)
                    txtTCostCad.Text = rs(14)
                    txtPSPCad.Text = rs(3)
                    txtPSCCad.Text = rs(15)
                    txtGPCad.Text = rs(16)
                    txtScommCad.Text = rs(17)
                    txtGSTColCad.Text = rs(5)
                    txtGSTPDCad.Text = rs(18)
                    txtGSTDiffCad.Text = rs(19)
                    txtQty.Text = rs(37)
                    txtPCM.Text = rs(38)
                    txtTCProd.Text = rs(39)
                    txtBillCost.Text = rs(40)
            End If
            rs.MoveNext
            x = x + 1
          Loop Until rs.EOF = True
        End With
End Function