Vb6 - Gravar imagens no SQL

Por favor, alguem sabe como faco para gravar no sistema em vb6 uma imagem (picture) dentro de um campo no SQLSERVER  do tipo IMAGE

Agradeço desde já...Obrigado

Estou fazendo do jeito abaixo , mas nao funciona

	  SQL = "select icone,botao from SenSistemas where CodSys ='" & sCodSys & "'"

	  rs.Open SQL, cnBanco, adOpenDynamic, adLockBatchOptimistic

	   If rs.EOF = False Then

	        If PicBotao.Picture = picLimpo.Picture Then

	            rs.Fields(sNomeCampo) = vbEmpty

	        Else

	            rs.Fields(sNomeCampo).AppendChunk bytData

	           If UCase(sNomeCampo) <> "FOTO" Then

	              Dim pTeste As New StdPicture

	              Set pTeste = PicBotao

	            '  rs.Fields(sNomeCampo) = bytData

	            End If

	        End If  

	    End If

	    rs.Update

	    rs.Close

	    Set rs = Nothing