With リストビュー
''プロパティ
.view = lvwReport ''表示
.LabelEdit = lvwManual ''ラベルの編集
.HideSelection = False ''選択の自動解除
.AllowColumnReorder = True ''列幅の変更を許可
.FullRowSelect = True ''行全体を選択
.GridLines = True ''グリッド線
.Checkboxes = True
''列見出し
.ColumnHeaders.Add , "_Name", "名称"
.ColumnHeaders.Add , "_NodeIdx", "ノードＩＤ"
.ColumnHeaders.Add , "_SearchIndex", "SearchIndex"
.ColumnHeaders.Add , "_Count", "件数"
End With
strSql = "select * from tbl002_SelectSearchIndex WHERE DB_SaveID =" & strDbid & " ORDER BY ID"
rs.Open strSql, CurrentProject.Connection
Do Until レコードセット.EOF
With リストビュー.ListItems.Add
.text = レコードセット!nodeName
.SubItems(1) = レコードセット!フィールド名１
.SubItems(2) = レコードセット!フィールド名２
.SubItems(3) = レコードセット!フィールド名３
End With
レコードセット.MoveNext
Loop
レコードセット.Close