A列是什么类型,如果是整数,应该:
Tables(e.Form.Name & "_表1").Fill("select * from {数据源} where A = " & KID , "外部数据源名", True)