Sub ClearDatabase(DBname As String)   '清空指定的Access mdb文件中的所有表格
 Set cn = New ADODB.Connection

 cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Local DB\" & DBname & ".mdb;Persist Security Info=False;Jet OLEDB:Database Password="

 cn.Open

 ComboSht.Clear

 

 Set myrec = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))

 Do While Not myrec.EOF
  ComboSht.AddItem myrec!Table_name
  myrec.MoveNext

 Loop

 

 Set myrec = New ADODB.Recordset

 For i = 0 To ComboSht.ListCount - 1
  sqltxt = "delete from [" & Trim(ComboSht.List(i)) & "]"
  myrec.Open sqltxt, cn, 1, 2

 Next i
   

 Name App.Path & "\Local DB\" & DBname & ".mdb" As App.Path & "\Local DB\" & DBname & "-1.mdb"


 Dim dbE As New DAO.DBEngine

  App.Path & "\Local DB\" & DBname & "-1.mdb", App.Path & "\Local DB\" & DBname & ".mdb"

 Kill App.Path & "\Local DB\" & DBname & "-1.mdb"
End Sub

上面加红的这段。Name本来是一个函数，但是不知道为什么运行的时候变成了一个字符变量，内容是窗体的名称。。。 我也没有定义这个变量。 不知何解

如果最后这几行放在外面使用又是可以的，比如说

 ClearDatabase DBname
 Name App.Path & "\Local DB\" & DBname & ".mdb" As App.Path & "\Local DB\" & DBname & "-1.mdb"
 Dim dbE As New DAO.DBEngine
  App.Path & "\Local DB\" & DBname & "-1.mdb", App.Path & "\Local DB\" & DBname & ".mdb"
 Kill App.Path & "\Local DB\" & DBname & "-1.mdb"

这个问题我自己找到原因了，分享给大家
是因为使用Name改名时，对象必须关闭。光就这一段代码的话，关闭mdb文件的连接就可以了，修改之后代码如下

Set cn=nothing
set myrec=nothing
Name App.Path & "\Local DB\" & DBname & ".mdb" As App.Path & "\Local DB\" & DBname & "-1.mdb"

而我的情况更麻烦一点，窗口上一个adodc1也调用了这个mdb，还不能设为nothing要不就报警（虽然也能运行）。 最后我放弃adodc1，改用adodb了。