Problemer med vægt

Hej Eksperter - Jeg har et underligt problem:

Jeg har en access database med en tabel der hedder forsendelse. Heri ligger
id (auto)
forsendelsespris (tekst)
maxvaegt (tal)

id.......forsendelsspris......maxvaegt
1.........29,00...............1
2.........37,25...............999
3.........49,25...............4999
4.........55,50...............9999
5.........69,75...............14999
6.........90,00...............19999
7.........103,00..............24999
8.........121,00..............29999
osv.

På baggrund af varens vægt (gram) beregnes forsendelseprisen.

Det går fint indtil jeg når 20000 enheder i beregningen, altså 20000 gram (20 kg) Hvis der er 20000+ enheder i beregningen så skifter den ikke til næste interval/forsendelspris (nr. 7).

Her er min kode:

<%
VaegtPaaPakken = 0
for i=0 to ubound(CCcart,2)
  if CCcart(CC_ProductID,i) <> "" then
Dim MM_conn_STRING
MM_conn_STRING = "databaser\butik.mdb"

Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT vaegt FROM varer where id="& CCcart(CC_ProductID,i)
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0

VaegtPaaPakken = VaegtPaaPakken + (rs("vaegt") * CCcart(CC_Quantity,i))
  end if
next
Dim forsendelse
Dim forsendelse_numRows

Set forsendelse = Server.CreateObject("ADODB.Recordset")
forsendelse.ActiveConnection = conn
forsendelse.Source = "select max(forsendelsespris) as forsendelsespris from forsendelse where maxKg<="& VaegtPaaPakken
forsendelse.CursorType = 0
forsendelse.CursorLocation = 2
forsendelse.LockType = 1
forsendelse.Open()

forsendelse_numRows = 0

if not forsendelse.eof then
CCcart_Shipping=forsendelse("forsendelsespris")
end if
%>

Håber i forstår hvad jeg mener