not upload picture in database

i try unload picture in database but i failed how upload image save in database i see picture in picture box
i used adodbc conn used
i used this code

Dim sFileName1
Set rs = con.Execute("SELECT * FROM imagepic")

sFileName1 = Text1.text
Image1.Picture = LoadPicture(sFileName1)
Set strStream = New ADODB.Stream
strStream.Type = adTypeBinary
strStream.Open
strStream.LoadFromFile sFileName1
imagetgy = strStream.Read

con.Execute ("INSERT INTO imagepic VALUES('1', '" & imagetgy & "')")




please how can this

Attached Images