AccessのVBAでSQLのSELECTを使い複数フィールドの値を抽出する｜フォーム実行例

SELECT フィールド名1,フィールド名2 AS 別名 FROM テーブル名
このようにフィールド名をコンマで区切り指定します。
順番はここで指定したフィールド順になるので、入れ替えて取り出したい時にも使用できます。
［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Me!テキスト1 = Null
    Me!テキスト2 = Null
    SQL = "SELECT 名前,購入日 FROM T_資産"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs![名前] & vbCrLf
        Me!テキスト2 = Me!テキスト2 & rs![購入日] & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

サンプルソフトのダウンロード