bin = rs.Fields("Picture").Value saveFilePath = "D:\Picture1.jpeg" fno = FreeFile() Open saveFilePath For Output As #fno Close #fno Open saveFilePath For Binary Lock Read Write As #fno Put #fno, , bin Close #fno