数据库的问题

Question

procedure addcap;//写入标题过程
var
iCount: Integer;
begin
form1.SeSkinSListView1.Clear;
for icount:=1 to form1.ado1.FieldCount -1 do
begin
form1.seskinslistview1.Columns.Add.Caption :=(form1.ado1.Fields[icount].FieldName);
form1.ado1.Next;
end;
end;
我用以上代码从数据库中读出字段名，写到listvie的columns.caption中去，
但我不知道，怎么样才能把数据库中的所有数据写到listview的subitmes.caption中去，
请大家帮帮我

Answer 1

说明白一点！
就是一个mdb数据库有7个字段，比如说
a b c d e f g
然后各各字段下面都有若干记录，，我应该怎么把这些记录读出来，然后放到
相映的字段里面去？
谢谢！

Answer 2

说明一下，一定要用listview!
谢谢了！！

Answer 3

var
iCount: Integer;
NewItem:TListItem;
begin
form1.SeSkinSListView1.Clear;
for icount:=1 to form1.ado1.FieldCount -1 do
begin
form1.seskinslistview1.Columns.Add.Caption :=(form1.ado1.Fields[icount].FieldName);
end;
form1.ado1.first;
while not form1.ado1.eof do
begin
  NewItem:=form1.seskinslistview1.Items.Add;
  NewItem.Caption:=form1.ado1.Fields[0].AsString;
  for iCount:=1 to form1.ado1.FieldCount-1 do
  beign
    NewItem.SubItems.Add(form1.ado1.Fields[iCount].AsString);
  end;
  form1.ado1.next;
end;
end;