a página está travando...

A página trava no looping:

VolumeEmb = "15032"VolumeItem = "15,1"Do until CDBL(VolumeEmb) > CDBL(VolumeItem)  'ir acrescentando mais embalagens enquanto a embalagem não suprir a cubagem dos itens.    Diferenca = CDBL(VolumeItem) - CDBL(VolumeEmb)    strSQL = "Select top 1 cubagem, nome from embalagem where cubagem >= '" & Diferenca & "'"    Set rsVol2 = Conexao.Execute(strSQL)        if not rsVol2.EOF then        VolumeEmb = CDBL(VolumeEmb) + CDBL(rsVol2("cubagem"))        historico = historico & "," & rsVol2("nome") & ":" & rsVol2("cubagem")    else        VolumeEmb = VolumeMaximo        historico = historico & "," & "Caixa Grande: " & VolumeMaximo    end if    rsVol2.close    set rsVol2 = NothingLoop