关于数据库导出的问题,AdoDataSetDest 是什么意思啊?

下面是关于数据库导出代码:
Procedure  ImportData(strFileName, strTableName, strKeyFieldName: string);beginwith AdoDataSet1 dobeginClose;LoadFromFile(strFileName);First;While not eof dobeginStrKeyValue := FieldByName(strKeyFieldName).AsString;If RecordInDest(strTableName, strKeyFieldName, strKeyValue) then//自定义函数begin 
//------------下面有关AdoDataDest,AdoDataSetDest是什么意思呢-----------------//
               它是对什么对象进行操作的???好迷茫???AdoDataDest.Close;AdoDataSetDest.CommandText := Format(‘select * from %s where %s=%s’,[strTableName, strKeyFieldName, QuotedStr(strKeyValue)]);AdoDataSetDest.Open;AdoDataSetDest.First;AdoDataSetDest.Edit;for I:=0 to FieldList.Count-1 doAdoDataSetDest.Fields[I] := Fields[I];AdoDataSetDest.Post;endelse         // 添加记录beginAdoDataDest.Close;AdoDataSetDest.CommandText := Format(‘select * from %s where 1=0’,[strTableName]);  // 获取字段列表AdoDataSetDest.Open;AdoDataSetDest.Insert;for i:=0 to FieldList.Count-1 doAdoDataSetDest.Fields[i] := Fields[i];AdoDataSetDest.Post;end;Next;end;end;