invalid variant operation 错误
invalid variant operation
ADOQuery1->Open();
AnsiString cfh;
cfh=ADOQuery1->FieldValues["ssno"]+DateToStr(Date())+Edit2->Text;
an1= " select * from cure where ";
an1 +=" psno='"+Edit1->Text+"' and cfsno ='"+cfh+"'";
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(an1);
求指教