with ADOQuery1 do
     begin
          Close;
          Sql.Clear;
          Sql.Add('Select A, B, C from DBFTable');
          Open;
               AdoQuery2.Close;
               AdoQuery2.SQL.Clear;
               AdoQuery2.SQL.Add('Insert into MSAccessTable (A, B, C)');
               AdoQuery2.SQL.Add('Values (:a, :b, :c)');
          while not eof do
          begin
               AdoQuery2.Parameters.ParamByName('a').Value:= FieldByName('A').Value;
               AdoQuery2.Parameters.ParamByName('b').Value:= FieldByName('B').Value;
               AdoQuery2.Parameters.ParamByName('c').Value:= FieldByName('C').Value;
               AdoQuery2.ExecSQL;
               Next;
          end;
     end;