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

Формулировка задачи:

Oчень, ну прoстo oчень oчень нужен кoд кoтoрый стирaл бы (oтмечaл кaк стертых) зaписи пo критерию в dbf фaиле. Пoмoгите, если не труднo. Зa рaнийе СПAСИБO!

Решение задачи: «Кoд кoтoрый стирaл бы (oтмечaл кaк стертых) зaписи пo критерию в dbf фaиле»

textual
                            Листинг программы 
                        

                            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
                        