投稿者 しるふぃん  (社会人) 投稿日時 2011/4/11 16:42:26
出来れば開発環境は最初に明記してほしいです。
推測での返答は時間がかかるだけですし、お互いにずれたまま話を進めるとややこしくなるので。

ActiveXコントロールの「Listviewコントロール」を使用すればというのが、前回の回答でした。

あと、チェックボックスを使うかどうかですが、今回はあえて普通のテキスト項目に"True"か"False"
で入れています。

サンプル
    Set WS = DBEngine.Workspaces(0)
    Set DB = WS.Databases(0)
    Set TB1 = DB.OpenRecordset("テーブル名", DB_OPEN_TABLE)
    If Not TB1.EOF Then
        TB1.MoveFirst
        Do Until TB1.EOF
            Dim itm As ListItem
            'セットしたいDBの項目 
            Set itm = Me!ListView0.ListItems.Add(, , TB1!セットしたい項目)
            itm.SubItems(1) = TB1!セットしたい項目
            If a2="" and a3="" then
                itm.SubItems(2) = "False"
                itm.SubItems(3) = "False"
           Elseif a2<>"" and a3="" then
                itm.SubItems(2) = "True"
                itm.SubItems(3) = "False"
           End if
           TB1.MoveNext
        Loop
    End If
    TB1.Close: TB2.Close: QDef.Close: DB.Close

※あくまでもサンプルです。このままでは動きません。
  使用方法も含めて一度「ListView」をぐぐってみて調べてみてください。