[nisgia]

Τάσος: Αν ήξερα ότι θα απαντούσες, απλά θα καλωσόριζα τον Παντελή!

Αυτό μην το ξαναπείς Τάσο!
Όσο μιλάς εσύ, εμείς μαθαίνουμε...!

Για παράδειγμα, αν δεν έδινες την παραπάνω λύση για το γέμισμα της λίστας
δεν θα έμπαινα στον κόπο να τη ψάξω για λύση χωρίς τη χρήση βρόχου.

Δες τι εννοώ:

    Dim rs As New ADODB.Recordset

    With rs
        .Open "SELECT Field1 FROM Table1 WHERE Not Table1." _
                & "Field1 Is Null ORDER BY Field1", CurrentProject.Connection
        If Not (.EOF And .BOF) Then
            Me.List1.RowSource = Replace(.GetString, Chr(13), ";")
        End If
        .Close
    End With
    Set rs = Nothing

Update:
Και για περιπτώσεις με πολλές στήλες, αναβαθμίζουμε την έκφραση Replace(.GetString, Chr(13), ";") ως εξής:

Replace(Replace(.GetString, Chr(13), ";"), Chr(9), ";")