Sub DeleteTable()
Dim conn As ADODB.Connection
On Error GoTo ErrorHandler
Set conn = CurrentProject.Connection
conn.Execute "DROP TABLE myTable"
Application.RefreshDatabaseWindow
ExitHere:
conn.Close
Set conn = Nothing
Exit Sub
ErrorHandler:
If Err.Number = -2147217900 Then
DoCmd.Close acTable, "myTable", acSavePrompt
Resume 0
Else
Debug.Print Err.Number & ":" & Err.Description
Resume ExitHere
End If
End Sub