Como enlazar mi combobox a varios texbox

Buen día, tengo tres combox los cuales los enlazo a tablas mysql por ejemplo cuando selecciono un item del combo A me sale un lista en el combo B y al seleccionar un item del combo B me sale una lista en el Combo C cuando selecciono un item del combo C me tiene que desplegar los demás campos en varios textbox mi problema es que al seleccionar el combo C no me relaciona bien los campos y si quiero consultar otro item me sale un erro que dice: NO HAY NINGUNA FILA EN LA pocision 0. E intentado varias formas pero no se como resolver ese error voy a dejar el código que tengo en el ultimo combobox donde hago la consulta para que me salgan los datos en los texbox.

Dim strquery As String
strquery = ("SELECT * FROM stock Where tienda ='" + Me.cmbtienda.SelectedValue + "'order by fecha desc;")
Dim Miadaptador As New MySqlDataAdapter(strquery, DBCon)
'Dim Mitabla As DataTable
Dim midataset As New DataSet
Miadaptador.Fill(midataset, "stock")
'Me.ComboBox2.DisplayMember = "tienda".ToString()
Me.ComboBox2.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("tienda"))
Me.TextBox1.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("s5"))
Me.TextBox2.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("s10"))
Me.TextBox3.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("s15"))
Me.TextBox4.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("s20"))
Me.TextBox5.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("s25"))
Me.TextBox6.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("s35"))
Me.TextBox7.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("s40"))
Me.TextBox8.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("s60"))
Me.TextBox9.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("s100"))
Me.TextBox10.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("i5"))
Me.TextBox11.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("i10"))
Me.TextBox12.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("i15"))
Me.TextBox13.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("i20"))
Me.TextBox14.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("i25"))
Me.TextBox15.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("i35"))
Me.TextBox16.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("i40"))
Me.TextBox17.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("i60"))
Me.TextBox18.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("i100"))
Me.TextBox19.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("r5"))
Me.TextBox20.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("r10"))
Me.TextBox21.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("r15"))
Me.TextBox22.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("r20"))
Me.TextBox23.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("r25"))
Me.TextBox24.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("r35"))
Me.TextBox25.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("r40"))
Me.TextBox26.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("r60"))
Me.TextBox27.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("r100"))
Me.TextBox28.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("a5"))
Me.TextBox29.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("a10"))
Me.TextBox30.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("a15"))
Me.TextBox31.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("a20"))
Me.TextBox32.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("a25"))
Me.TextBox33.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("a35"))
Me.TextBox34.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("a40"))
Me.TextBox35.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("a60"))
Me.TextBox36.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("a100"))
Me.TextBox37.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("concepto"))
Me.TextBox38.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("documento"))
'Me.TextBox38.Text = CStr(midataset.Tables("stock").Rows(Me.cmbtienda.SelectedIndex)("fecha"))
CargarDatos()