サンプル 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