我用adoquery.append添加纪录怎么加进来中文内容的是乱码，急？


这两个adoquery所连的表是dbf，目的是将一个adoqeruy所连的dbf文件中的纪录添加到另一个adoqeruy所连的表里
adoconnection如下：adoc1.ConnectionString:=' Provider=MSDASQL.1;Persist Security Info=False;'+
    'Data Source=dBASE Files;Initial Catalog=d:\db ';
adoc2.ConnectionString:=' Provider=MSDASQL.1;Persist Security Info=False;'+
    'Data Source=dBASE Files;Initial Catalog=\\192.168.0.253\db1 ';
在执行下面代码时字段内容是汉字的就是乱码，数字和字母都没问题，procedure TForm1.AppendR俄(cfxm:string;adoc2:TADOConnection;Adoq1:TADOQuery;Adoq2:TAdoquery);
var
   count:integer;
begin    
   adoq1.First;
   count:=adoq2.RecordCount;
  
   while not adoq1.Eof do
   begin
     adoq2.Append;     adoq2.FieldValues['jydjh']:= adoq1.FieldValues['jydjh'];
     adoq2.FieldValues['yybh']:= adoq1.FieldValues['yybh'];
     adoq2.FieldValues['gmsfhm']:= adoq1.FieldValues['gmsfhm'];
     adoq2.FieldValues['zyh']:= adoq1.FieldValues['zyh'];
     adoq2.FieldValues['ryrq']:=   adoq1.FieldValues['ryrq'];
     adoq2.FieldValues['fyrq']:=   adoq1.FieldValues['fyrq'];
     adoq2.FieldValues['xmxh']:=adoq1.FieldValues['xmxh']+count;
     adoq2.FieldValues['xmbh']:=    adoq1.FieldValues['xmbh'];
     adoq2.FieldValues['xmmc']:=     adoq1.FieldValues['xmmc'];
     adoq2.FieldValues['fldm']:=    adoq1.FieldValues['fldm'] ;
     adoq2.FieldValues['ypgg']:=    adoq1.FieldValues['ypgg'];
     adoq2.FieldValues['ypjx']:=    adoq1.FieldValues['ypjx'] ;
     adoq2.FieldValues['jg']:=      adoq1.FieldValues['jg'];
     adoq2.FieldValues['mcyl']:=    adoq1.FieldValues['mcyl'];
     adoq2.FieldValues['je']:=      adoq1.FieldValues['je'];
     adoq2.FieldValues['bz1']:=     adoq1.FieldValues['bz1'] ;
     adoq2.FieldValues['bz2']:=      adoq1.FieldValues['bz2'] ;
     adoq2.FieldValues['bz3']:=      adoq1.FieldValues['bz3'] ;
     adoq2.FieldValues['drbz']:=      adoq1.FieldValues['drbz'] ;
     adoq2.FieldValues['YPLY']:=      adoq1.FieldValues['yply'] ;   
     adoq2.Post;
     adoq1.Next;
  end;
恩德