Ailton Zacarias (Desenvolvedor VBA)

Public Function RemoverVinculo()
Dim rVinculo As DAO.Recordset

Set rVinculo = CurrentDb.OpenRecordset(“Select * from admVinculos”)

While Not rVinculo.EOF

DoCmd.DeleteObject acTable, rVinculo.Fields(“Destino”)

rVinculo.MoveNext

Wend

rVinculo.Close

Set rVinculo = Nothing

End Function