vb.net error: index outmost finish array

this blunder comes out whenever i click datagrid.

the way does fill datagrid each information comparison combobox.

for example, i select data1 4 annals datagrid, following i click quarrel index 1. problem, shown, nonetheless i select another information again combobox, example, information 2 wholly record following i again click datagrid.

this blunder cocktail up.

please formula i fill information grid:

sub filldtgpir(byval qry string)
    try
        sqlconn1.state = connectionstate.closed following sqlconn1.open()
        low adap new sqldataadapter(qry, sqlconn1)
        me.dtslinereq1.prrms_pir.clear()
        adap.fill(me.dtslinereq1, "prrms_pir")
    locate ex exception
        msgbox(ex.message)
    finish try
end sub

is there blank something code?