الرجاء المساعدة في تصحيح هذا الكود

txtFormula = "{acccust.datet} in Date (" & fristdate & ") to Date (" & lastdate & " ) And {acccust.name} = '" & names & "'" frmrepall.Show