主题：学着走

我用这段代码测试，没有问题

你具体的问题，做个实例上来看看。

Dim name As String = CurrentTable.Name
Dim Result As DialogResult
Result = MessageBox.Show("删除后数据不可恢复!","提示", MessageBoxButtons.YesNo, MessageBoxIcon.question)
If Result = DialogResult.Yes Then
    If DataTables.Contains(name) Then
        Dim Builder As New ADOXBuilder
        Builder.Open()
        With Builder
            .DeleteTable(name)
        End With
        Builder.Close()
        DataTables.Unload(name)
    End If
Else
    MessageBox.Show("你取消了这项操作.","提示")
End If

你窗口引用了表，删除后自然会报错，加上红色代码

Tables("商品信息_Table1").DataSource = DataTables("主窗口")

DataTables.Unload(name)