Potresti utilizzare una ListBox.

Altrimenti puoi fare una cosa tipo:

Do While Not TuoRecordset.EOF
' se vuoi che il tutto venga visualizzato per linee
Text1 = Text1 & VbCrLf & TuoCampo
' se invece vuoi visualizzare i campi delimitati da VIRGOLE
Text1 = Text1 & "," & TuoCampo
TuoRecordset.MoveNext
Loop