Ajde malo detaljnije opisi problem. Nisam siguran tacno sta hoces ali evo ako je pisanje neke vrednosti u fajl onda evo
Code:
Public Function WriteBuffer(FileName As String, lpBuffer() As Byte) As Long
Dim WordDoc As Integer
Dim FileSize As Long
'
On Error GoTo ErrHandler
WordDoc = FreeFile
FileSize = UBound(lpBuffer)
Open FileName For Binary Access Write As #WordDoc
Put #WordDoc, 1, lpBuffer
Close #WordDoc
WriteBuffer = FileSize
Exit Function
ErrHandler:
WriteBuffer = -1
'
End Function
'funkciju posle pozivas ovako
Dim buffer() As Byte
buffer = RS.Fields!nekoPolje 'ovde je tvoj recordset
WriteBuffer App.Path & "\test.bin", buffer