Public Sub TestDBF()
      Dim pConn As New ADODB.Connection
      Dim sConn As String, sSQL As String, i As Long
      Dim pRSet As New Recordset, vData As Variant
      sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Mode=16;Data Source=" & ThisWorkbook.Path & ";Extended Properties=dBASE IV;"
      pConn.Open sConn
      sSQL = "Select KOD,N6,N8 From [Z03_0414.DBF]"
      pRSet.CursorLocation = adUseClient
      pRSet.Open sSQL, pConn, adOpenStatic, adLockOptimistic
      pRSet.Sort = "KOD"
      vData = ActiveSheet.Range("A1").CurrentRegion.Columns(1).Value
      For i = 1 To UBound(vData)
          pRSet.MoveFirst
          pRSet.Find "KOD='" & CStr(vData(i, 1)) & "'"
          If Not pRSet.EOF Then
              pRSet("N8").Value = Null
              pRSet("N6").Value = Null
          End If
      Next
      pRSet.Close: pConn.Close
End Sub