vfp与oracle数据库日期查询问题,在线等待15分钟

Question

form1.ADOConnection1.Open;
想把日期格式先转为yyyy-mm-dd没有成功，想请教如何带日期参数查询
  rq1:=strtodatetime('2001-08-01');
//  rq1:=formatdatetime('yyyy"-"mm"-"dd',rq1);
//  rq1:=formatdatetime('yyyy-mm-dd',rq1);
  rq2:=strtodatetime('2001-08-31');
  str1:='select daa01.cyjh,rq,ccynd,ccynd1 ';
  str1:=str1+' from daa01,dba01';
  str1:=str1+' where daa01.jh=dba01.jh';
  str1:=str1+' and (dba01.ccynd<>0 or dba01.ccynd1<>0)';
//  str1:=str1+format(' and rq>%s',[datetimetostr(rq1)]);
//  str1:=str1+format(' and between(rq,%f,%f)',[rq1,rq2]);
  form1.ADOQuery1.SQL.Add(str1);
  form1.ADOQuery1.SQL.Add(' and rq>=:rq1 and rq<=:rq2)');
  form1.ADOQuery1.Parameters.ParamByName('rq1').Value:=rq1;
  form1.ADOQuery1.Parameters.ParamByName('rq2').Value:=rq2;
  label1.Caption:=form1.ADOQuery1.SQL.Strings[0];
  label1.Caption:=label1.Caption+form1.ADOQuery1.SQL.Strings[1];
  form1.ADOQuery1.Prepared;
  form1.ADOQuery1.Open;