[AccessD] A2K:ADO Version of the following

Hello all
I have a nice bit of code (Thanks Deano) that drops all the linked tables in a dB - cool
Does anyone know the ADO version of the code below?

Many thanks

Darren

""""""""""""""""""""""""""""""""""""""""""""""
 Dim lnk As DAO.tabledef
  
    For Each lnk In CurrentDb.TableDefs
        If lnk.Attributes = dbAttachedTable Then
            CurrentDb.TableDefs.Delete lnk.Name
        End If
    Next