线程操作数据库问题

访问数据库用的是ClientDataSet  FClientDataSet.Close;  
  FClientDataSet.CommandText := '';  FClientDataSet.CommandText := vSQL;  for i:= 0 to FClientDataSet.Parameters.Count-1 do
  begin
    Self.FDataSet.Parameters.ParamByName(Fields[i].FieldName).Value := Fields[i].FieldValue;
  end;
  FClientDataSet.Open;