مشكلة في ال Sub query

أريد تطبيق السب كويري التالية بواسطة الأكسس

DoCmd.RunSQL "insert into OthersBind values (((select max(bindid) from OthersBind)+1) ,  5000 , 5000 );"

لكنه لا يقبل وتظهر لي رسالة

اقتباس

runtime error 3000

there is no message for this error

لا أدري ما المشكلة ؟؟؟؟؟