Insert Picture into DB on VB 6.0

this code i write last years ago on a project atendance system on a company . the requirement should store a picture of employee on a table on database. after browse for many hours, finaly i found how to store graphic or picture into a database. the project use a Microsoft SQL Server , but in this sample used microsoft access for database.

Field for picture on the table should set data type to OLE Object , and code on vb use ADODb Stream for store picture on database.

Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open

for complete sample you can download via this link