Кoд кoтoрый стирaл бы (oтмечaл кaк стертых) зaписи пo критерию в dbf фaиле

Sub Main()
    Const myPath = "C:\Temp" ' укажите путь к своему DBF-файлу
    Const myDbf = "temp" ' укажите имя своего DBF-файла БЕЗ расширения
    Dim myConn As ADODB.Connection
    Dim myRst As ADODB.Recordset
 
    ' Всё подготовим:
    Set myConn = New ADODB.Connection
    myConn.ConnectionString = "Provider=MSDASQL;DSN=Файлы dBase;DefaultDir=" & _
                              myPath & ";Database=" & myDbf
    myConn.Open
    Set myRst = New ADODB.Recordset
    myRst.Open myDbf, myConn, , adLockOptimistic, adCmdTableDirect
    
    ' Пусть в таблице одно из числовых полей называется 'Value'. Тогда для примера
    ' будем удалять из таблицы те записи, у которых значение в поле Value < 900:
    While Not myRst.EOF
        ' Debug.Print myRst!Value
        If myRst!Value < 900 Then myRst.Delete
        myRst.MoveNext
    Wend
    
    ' Всё 'очистим':
    myRst.Close
    myConn.Close
    Set myRst = Nothing
    Set myConn = Nothing
End Sub