Excluir um Index do Access pelo VB

[Macêdo]

Com as linhas abaixo você exclui o indice do BD Access, o tratamento de erro é para caso não exista um indice com o nome informado não aconteça o erro de Run Time

Private Sub excluir_indice()

On Error GoTo indice_nao_existe
sSQL = "drop index nome_do_index on nome_da_tabela;"
cnn.Execute sSQL

indice_nao_existe:
If Err.Number = 2147217887 Then
End If

End Sub