如何把ACCESS数据表中数据，在listview中显示？(100分)

以前，我一直用DBGIRD控件来显示ACCESS数据表中数据，但DBGIRD有些功
能不如listview好用。现想用listview控件来显示各字段的值，请问各位如
何才能实现。

更正：DBGIRD笔误，应为DBGRID。

只能自己手工一个一个加内容进去了

procedure TForm1.FormCreate(Sender: TObject);
var
I:integer;
NewColumn:TListColumn;
ListItem:TListItem;
begin
with ListViewdo
begin
ViewStyle:=vsReport;
NewColumn:=Columns.Add;
NewColumn.Caption:='Fieldname1';
NewColumn:=Columns.Add;
NewColumn.Caption:='Fieldname2';
...
NewColumn:=Columns.Add;
NewColumn.Caption:='Fieldnamen';
for I:=0 to Table1.RecordCount-1do
begin
ListItem:=Items.Add;
ListItem.Caption:=Table1.FieldByName('Fieldname1').Value;
ListItem.SubItems.Add(Table1.FieldByName('Fieldname2').Value;
....
ListItem.SubItems.Add(Table1.FieldByName('Fieldnamen').Value;
end;
end;

更正：
ListItem.SubItems.Add(Table1.FieldByName('Fieldnamen').Value);

应在 ListItem.SubItems.Add(Table1.FieldByName('Fieldnamen').Value;后再
加一句,TABLE1.NEXT;否则所有的记录都是第一个的记录,我想LSYX你是没有调试过.
不过我还有一个问题,能否把LISTVIEW中某条选中的记录,加入到LISTBOX中.具体怎样
做?

接受答案了.