Saving Image From VB 6 to in SQL DB

hi sir,
i want to save the image from Vb 6 to SQL Database columns Picture(Datatype of column is :Image). The code which i am already using save the image only at the first record of the table...My requirement is to save the image at any record of the table...for example..i want to save the pictures of all employess with thire records..
below is my Code which i am already using...please help out me ..and verify my code according to my requirement..

MY CODE....

Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream

Private Sub CmdSave_Click()
Dim sql As String
Set rs = New ADODB.Recordset
rs.Open "select * from PicturesPath ORDER BY 1", conn, adOpenKeyset, adLockOptimistic

Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile ("C:\D214.bmp")
rs.Fields("Picture").Value = mstream.Read
rs.Update
rs.Close

End Sub

Anxiousively Waiting for your helpfull replay