Sub test()
    Call RestoreFile( "D:\temp" )
End Sub

Public Sub RestoreFile(Path As String)

    Dim DB As DAO.Database
    Dim RS As DAO.Recordset
    Dim FF As Long
    Dim NewFileName As String
    
    Set DB = CurrentDb
    Set RS = DB.OpenRecordset( "SELECT * FROM tblCertPictures" , )
    dbOpenSnapshot
    
            Path = Trim(Path)
            If Right(Path,  1 ) =  "\"  Then
                Path = Left(Path, Len(Path) -  1 )
            End If
    
    With RS
        Do While Not .EOF
            FF = FreeFile()
            NewFileName = CStr(RS![ID]) &  ".tif" 
            
                Open Path &  "\"  & Trim(NewFileName) For Output Access Write Lock Write As #FF
                Write #FF, RS![Picture]
                Close FF
            .MoveNext
        Loop
    End With

    Set RS = Nothing
    Set DB = Nothing
End Sub

II*    вфьхуьяыъъъъъъъъъъъъъъъъэээээээээээээээээ

?*H ????? 0  ???????????:????:????:  ?   A ? a