VBA/Excel/Access/Word/Access/Recordset Delete

Deleting an Existing Record from Recordset

 
Sub DeleteCusts(lngProjEst As Long)
    Dim intCounter as Integer
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    rst.ActiveConnection = CurrentProject.Connection
    rst.CursorType = adOpenDynamic
    rst.LockType = adLockOptimistic
    rst.Open "Select * from Products "
    intCounter = 0
    Do Until rst.EOF
        If rst("UnitPrice") < lngProjEst Then
            rst.Delete
            intCounter = intCounter + 1
        End If
        If Not rst.EOF Then
            rst.MoveNext
        End If
    Loop
    Debug.Print intCounter & " Customers Deleted"
    rst.Close
    Set rst = Nothing
End Sub

Removing a Table Using Code

 
Sub DeleteTable()
    On Error Resume Next
    Dim cat As ADOX.Catalog
    Set cat = New ADOX.Catalog
    cat.ActiveConnection = CurrentProject.Connection
    cat.Tables.Delete "Foods"
End Sub