MS Access + vba + sql

Witam,

Dostałem w spadku projekt do składania zamówień i wnoszę pewne poprawki... całość jest zrobiona w MS Access a baza stoi na sql'u

Mam zapytanie do bazy, które zwraca rekord i mam poniższy kod:

Set lstItem = ListView1.ListItems.Add()
            lstItem.Text = rs("NumerZapo")
            lstItem.SubItems(1) = Nz(rs("DataZapo"))
            lstItem.SubItems(2) = Nz(rs("Utworzyl"))
            lstItem.SubItems(3) = Nz(rs("Depart"))
            lstItem.SubItems(4) = Nz(rs("Dost"))
            lstItem.SubItems(5) = Nz(rs("WartoscZamow")) 

Tym sposobem wartości trafiają do ListBox'a.

Problem wydaje się banalny, ale próbowałem już różnych sposobów i nijak, mianowicie chciałbym aby ostatnia wartość "WartoscZamow" wyświetlana była w formacie np: 2000,00 zł a nie 2000 zł przy liczbach całkowitych. Przy liczbach z ułamkami wszystko jest ok. Próbowałem różnych wersji konwersji i to nie działa ;/

Z góry dzięki za pomoc ;)

Format(Nz(rs("WartoscZamow")), "Currency") może pomoże?

hehe... działa ;)

Wielkie dzięki ;)