求助：禁止删除代码该如何写

我在“用户登录”窗体设定了一个按钮，当清空数据库内容的时候，以保留几个基本的表内容，但是，当我进行拆分数据库以后（在D盘建立了一个“后台数据库”文件夹），结果现在这个按钮不起作用了，需要清空的数据没有清空，请问这种情况下，代码应该如何编写，请诸位老师给予指导为盼。下面是现在的代码：

Private Sub Command17_Click()
Call Deltb("部门名称表", "原料类别表", "产品类别表", "工序名称表", "工序明细表", "库房表", "用户密码表")
End Sub