Cargar Filas tabla en Textbox

[tiger015]

saludo lo ke podrias hacer es
Buenas a todos, mi problema es el siguiente:

Tengo en el form un combo que me recoge en una consulta todos los proveedores contratados.
Cuando le doy a buscar, qiero que dependiendo de los productos que ofrece cada proveedor me salgan MÁS o MENOS texbox y que se carguen todos los productos en los textbox correspondienntes.

Es que lo que tengo conseguido es que me cargue los productos, con el problema que en todos los textbox me carga el primer registro de la tabla.

Como puedo hacer para que me cargue todos y no solo el primero? yo lo tengo asi:

Dim cmd As New OleDb.OleDbCommand("SELECT descripcio,prenitat FROM productes WHERE codi_prov='" & Cbproveidor.Text & "'", conex)
Dim dr As OleDb.OleDbDataReader
Dim ds As New DataSet
conex.Open()
dr = cmd.ExecuteReader
If dr.Read Then
Try
txt1.Text = dr(0)
Tbunitat1.Text = dr(1)
txt2.Text = dr(0)
Tbunitat2.Text = dr(1)
txt3.Text = dr(0)
Tbunitat3.Text = dr(1)
txt4.Text = dr(0)
Tbunitat4.Text = dr(1)
txt5.Text = dr(0)
Tbunitat5.Text = dr(1)
txt6.Text = dr(0)
Tbunitat6.Text = dr(1)
txt7.Text = dr(0)
Tbunitat7.Text = dr(1)
txt8.Text = dr(0)
Tbunitat8.Text = dr(1)
Catch
'cuando encuentre el primer campo vacio vendara y no hara nada

end Try
Else
MsgBox("Error")
End If
conex.Close()

de esa forma vas llenando tus texboxs y cuando no encuentre mas simplemente no hara nada

espero te ayude;