>Lparameters a,b,c >This.SQLConn=(_Screen.SQLConn) > >WAIT WINDOW Aselobj(This.ABojlist) here is showing 0 >For lnLoop = 1 To Aselobj(This.ABojlist) >*only the selected once > loObj = This.ABojlist(lnLoop) > If loObj.Class='Cursoradapter' Then > > This.pageframe1.page1.SQLQuery.Value=loObj.SelectCmd > Exit > Endif > >Next >