Type typSwop
    strDelta As String *  29 
    byteString As Byte
End Type

Sub ChangeDbfCodepage( _
  strFileName As String)
    Dim typRecord As typSwop
    Dim hFile As Long

    On Error GoTo HandleError
    
    hFile = FreeFile
    
    If Len(Dir(strFileName)) >  0  Then
        Open strFileName For Random As hFile Len = Len(typRecord)
        
        Get hFile,  1 , typRecord
        
        If typRecord.byteString <>  201  Then
            typRecord.byteString =  201 
            Put hFile,  1 , typRecord
        End If
        
        Get hFile,  1 , typRecord
        
        If typRecord.byteString <>  201  Then
            MsgBox "Не удалось изменить кодировку."
        End If
        
        Close hFile
    Else
        MsgBox "Файла по указанному пути - нет."
    End If

ExitHere:
    Exit Sub

HandleError:
    Select Case Err.Number
        Case Else
            MsgBox Err.Number & ": " & Err.Description
    End Select
    Resume ExitHere
End Sub