ado数据导入问题：无法传递数据？！

Question

有这个代码：
  //导入数据
  if suiEdit1.Text='' then exit;
  DBFpath:=ExtractFileDir(suiEdit1.Text)+ '\';
  ImportDT:=LeftStr(ExtractFileName(suiEdit1.Text),6);  conn:= CreateOleObject('ADODB.Connection');
  conn1:= CreateOleObject('ADODB.Connection');
  rs:= CreateOleObject('ADODB.RecordSet');
  rs1:= CreateOleObject('ADODB.RecordSet');
  conn.open:='driver={Microsoft Access Driver (*.mdb)}; DBQ='
    + ExtractFileDir(Application.ExeName) + '\db\esdb.mdb';
  conn1.open:= 'driver={Microsoft dBase Driver (*.dbf)};DriverID=277;DBQ='
    + DBFpath;
  //开始导入
  suibutton1.Enabled:=False;
  //A库
  rs.Open('ESDBA',conn,adOpenStatic,adLockOptimistic,
    adCmdTable);
  rs1.Open('[' + ImportDT + '-A]',conn1,adOpenStatic,
    adLockReadOnly,adCmdTable);
  rs1.MoveFirst;
  while not rs1.Eof do
    begin
      rs.AddNew;
      rs.Fields[0]:=ImportDT;
      for j:=0 to rs1.Fields.Count-1 do
        begin
           rs.Fields[(j+1)]:= rs1.Fields[j];   
        end;
 [red]     showmessage(rs.Fields[1]);[/red] ==〉没有数据
 [red]     showmessage(rs1.Fields[1]);[/red] ==〉有数据！
真没办法：百思不得缘由！哪位朋友帮我一解烦恼！
      rs.Update;
      rs1.MoveNext;
    end;
  rs1.Close;
  showmessage(ImportDT + '-A.DBF is OK!');又及：增加的记录中，只有
      rs.Fields[0]:=ImportDT;
是真正执行了，其他字段都没有数据！数据表中有大概90个子段