数值列不需要单引号
DataTables("窗口店铺设置_Table1").SQLDeleteFor("[_Identify] = " & Tables("窗口店铺设置_Table1").Current("_Identify") )
DataTables("窗口店铺设置_Table1").RemoveFor("[_Identify] = " & Tables("窗口店铺设置_Table1").Current("_Identify") )