主题：如何初始化外部access数据库

 楼主，你说的清空是指数据，还是只表结构？

 如果是表结构的话，就没有这种必要了。如果是数据的话，直接用sql语句清空就行了。

 如果，你想删除原来的表，重新建立各个表？

 方法一：

Dim cmd As New SQLCommand
For Each name As String In Connections("xxxxxx").GetTableNames
    cmd.CommandText = "delete from {" & name & "}"
    cmd.ExecuteNonQuery
Next

 方法二，复制表

Dim cmd As New SQLCommand
For Each name As String In Connections("xxxxxx").GetTableNames
    cmd.CommandText = "select * into 新表 from {" & name & "} where 1=2"
    cmd.ExecuteNonQuery
    cmd.CommandText = "drop table {" & name & "}"
    cmd.ExecuteNonQuery
    cmd.CommandText = "select * into " & name & " from {新表}"
    cmd.ExecuteNonQuery
    cmd.CommandText = "drop table {新表}"
    cmd.ExecuteNonQuery
Next