Удалить таблицу Access

Public Function DelTables(sNameTable1 As String, Optional sNameTable2 As String = "", Optional sNameTable3 As String = "", Optional sNameTable4 As String = "", Optional sNameTable5 As String = "") As Boolean
  ' удаляет таблицы из базы, макс. кол-во перечисл. таблиц - 5 шт.
  ' при заданиии имен таблиц можно использовать маску, например:
  ' "*Кред*" - удалит все таблицы в названии которых есть сочетание - Кред
  '[sNameTable1]       - имя первой таблицы для удаления, обяз. параметр
  '[sNameTable2,3,4,5] - имена послед. таблиц для удаления, необяз. параметр
 
  Dim cat As ADOX.Catalog
  Dim i As Long, k As Long
   
  On Error GoTo Err_
 
  DelTables = False
  If Len(sNameTable1) > 0 Then
    Set cat = New ADOX.Catalog
    cat.ActiveConnection = CurrentProject.Connection
    k = 0
    For i = 1 To cat.Tables.Count
      If cat.Tables(k).name Like sNameTable1 Then
         cat.Tables.Delete k
         k = k - 1
      ElseIf cat.Tables(k).name Like sNameTable2 Then
         cat.Tables.Delete k
         k = k - 1
      ElseIf cat.Tables(k).name Like sNameTable3 Then
         cat.Tables.Delete k
         k = k - 1
      ElseIf cat.Tables(k).name Like sNameTable4 Then
         cat.Tables.Delete k
         k = k - 1
      ElseIf cat.Tables(k).name Like sNameTable5 Then
         cat.Tables.Delete k
         k = k - 1
      End If
      k = k + 1
    Next i
    DelTables = True
  End If
 
Ex_:
   Set cat = Nothing
   Exit Function

Err_:
   DelTables = False
   MsgBox Err.Description
   Resume Ex_

End Function

Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandType = adCmdText
cmd.CommandText = strSQL
cmd.Execute lngAffected, , adExecuteNoRecords