Udskriv poster i en list vha vba

Hvis du sætter LIste0's Rækkekildetype til Værdiliste, burde du kunne gøre således:

Sub OpenRecordsetX()
Dim dbs As Database, rs As Recordset, sql As String
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("TblAdr ", dbOpenForwardOnly)


  Do While Not rs.EOF
    SQL = SQL & rs.Fields(0) & "; "
    rs.MoveNext
  Loop
  SQL = Left(SQL, Len(SQL)-2)

rs.Close
Set rs = Nothing
Me!Listeo.Rowsource = SQL

End Sub

Men Hov!?? Hvorfor sætter du ikke bare listens Rowsource til at pege på din TblAdr?

Derved behøver du ikke en eneste linie kode...

Det er fordi, jeg er ved at lave et eksamensprojekt, hvor jeg skal anvende løkker, så så jeg det her som en mulighed.

Posterne bliver ikke udskrevet i listen. Der kommer ingen fejl. Hvad kan der mon være galt?

Nu virker koden tildels, men fields(0) bliver bare udskrevet vandret i liste0. Den skal udskrives lodret i kolonne 1. Fields(1) skal udskrives i kolonne 2 osv. Er det til at lave?

Hvormange kolonner er listen sat til at have?
Egenskaben "Antal Kolonner" skal sættes til 1.

Ellers prøv at udskifte ; med komma i sætningen: SQL = SQL & rs.Fields(0) & "; "

Hvis det heller ikke virker, så prøs at erstatte hele koden med dette:

Sub OpenRecordsetX()
Dim dbs As Database, rs As Recordset, sql As String
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("TblAdr ", dbOpenForwardOnly)


  Do While Not rs.EOF
    SQL = SQL & "'" & rs.Fields(0) & "'; "
    rs.MoveNext
  Loop
  SQL = Left(SQL, Len(SQL)-2)

rs.Close
Set rs = Nothing
Me!Listeo.Rowsource = SQL

End Sub