Dim ss As String = "select Top 1000 * from {托运单据} where 图片否 = '否' order by 托运单号 Desc"Tables("S回单标记_Table1").Fill(ss,"baox",False)如果记录为0时会报错,但在SQL执行不会.