Undlade 1. post

du kan vel lave en rsList.MoveNext inden du udskriver noget?

En meget simpel både at gøre det på er:
Inden du begynder at loope skriver du i = 1

Herefter begynder du at loope. Som det første tjekker du så om i = 1, hvis det ikke er det, så skal indholdet vises, ellers skal den bare afsluttes. Dvs:

i = 1
do while not rs.eof
If i = 1 then
else
rs("Indhold")
Rs.MoveNext
i = i + 1
Loop
Rs.close

Giver det mening?

Glemte lige et End if, du skal prøve:
i = 1
do while not rsList.eof
If i = 1 then
else
rsList("Indhold")
End if
rsList.MoveNext
i = i + 1
Loop
rsList.close

Jeg er enig med mnoer:

Set rsList = Conn.Execute("select * from bud where bekraeftet = true order by bud")

rsList.MoveNext

If not rsList.eof then
  Do
    'udskriv indhold
  rsList.movenext
  Loop until rsList.eof
end if

Jeg ville

If Not rsList.EOF Then rsList.MoveNext

Do While Not rsList.EOF
    rsList.MoveNext
Loop

Arh, det er også rigtigt:

rsList.MoveNext

If not rsList.eof then
  rsList.MoveNext

  Do While not rsList.eof
    'udskriv indhold
  rsList.movenext
  Loop

end if

Tror bare jeg stopper her... jeg har vist ikke fået nok kaffe i dag:

If not rsList.eof then
  rsList.MoveNext

  Do While not rsList.eof
    'udskriv indhold
  rsList.movenext
  Loop

end if

nej nej, ved der er en funktion i sql sætnigen , husker den bare ikke lige
select et eller andet

Set rsList = Conn.Execute("select * from bud where bekraeftet = true order by bud")

det kommer så også an på hvilken DB du bruger

access

åbenbart ingen som kan hjælpe..