Excluir uma tabela do Access pelo VB

[Macêdo]

Com a conexão aberta utilize o a instrução DROP TABLE para deletar uma tabela do Access

'abrir a conexão

Private Sub Form_Load()
conectar
End Sub

'deleta a tabela

Private Sub Command1_Click()
excluir_tabela
End Sub

'string de conexao

Private Sub conectar()

cnn.ConnectionString = "provider = microsoft.jet.oledb.4.0;" & _
"data Source = " & App.Path & "\BD.mdb;"
cnn.CursorLocation = adUseClient
cnn.Open

End Sub

'sub para excluir a tabela contatos

Private Sub excluir_tabela()

On Error GoTo nao_existe
sSQL = "drop table contatos;"
cnn.Execute sSQL

nao_existe:
If Err.Number = 2147217865 Then
End If

End Sub