SQL = "SELECT sum(pris) FROM hyr WHERE kundnr=" & Text1.Text & ""
rsK.Open SQL, dbkoppling, adOpenStatic

Jag vill lägga ihop alla priser som en kund ska betala i en listruta.
hur kan man lista ut alla priser i en listruta

MVH
/Abbe

för att lägga alla priser i en listruta gör du såhär:
<code>
SQL = "SELECT pris FROM hyr WHERE kundnr=" & Text1.Text & ""
rsK.Open SQL, dbkoppling, adOpenStatic

Do While Not rsK.EOF
litsbox1.additem rsK("pris")
Loop
</code>

Tackar det funkar bra

MVH
/Abbe