主题：我想把查询出某个单位的数据全部删除掉，再导入这个单位的数据，怎么用代码

我查询出来一个单位的数据，我想把这个单位的数据全部删除掉，再导入这个单位的数据，怎么用代码
此主题相关图片如下：qq图片20130621130110.jpg

删除一条记录代码是

If MessageBox.show("是否删除本记录?","请确认", MessageBoxButtons.OKCancel) = DialogResult.OK Then

Tables("总人口").Current.Delete

End If

那么删除符合查询出来数据的代码是什么？

另外，清空全部数据的代码是什么？