Store & Retrieve image in vb

just i try to give some out line in vb.
first use some controls in forms Ex: picturebox,dirvelistbox,dirlistbox,filelistbox.

and use loadpicture in any sub procedure() ex:

dim filepath as string
FilePath = File1.Path &"\" &File1.FileName
Picture1.Picture = LoadPicture(File1.Path &"\" File1.FileName)
'-----end sub
in database create the following fields ex: filepathname,drivename,directory,filename.
and use save procedure()

rs("FilePathName") = Trim(FilePat)
rs("DriveName") = Trim(Drive1.Drive)
rs("Directory") = Trim(Dir1.Path)
rs("FileName") = Trim(FileNam)
rs.Update
end sub

thanking you
hop you understand or mailme karaikudiselvaraj.gmail.com i will give a sample project

http://www.devx.com/tips/Tip/14246[^] may help.

Also these

Store Images in Your Database[^]
How to Read/Write Image files from/to Access DB using ADO[^]

can any guide me how to code for saving link of folder in database?