tentando gravar imagem no banco (sql server 2000)

estou fazendo uma função q grava uma imagem no banco de dados. Essa função peguei no site da microsoft e funciona perfeitamente.

Function GravarEstoque()
Set OP = New ADODB.Command
    With OP
        .ActiveConnection = Conn
        .CommandText = "Insert into Estoque (CodEstoque, LocalizacaoEstoque, UnidadeMedida, Quantidade, Valor, " _
        & "ValorTotal, CodPeca, NomePeca, Descricao, Obs, Situacao) " _
        & "Values ('" & frmestoque.txtCodigoEstoque.Text & "', '" & frmestoque.txtLocalizacaoEstoque.Text & "', " _
        & "'" & frmestoque.txtUnidadeMedida.Text & "', '" & frmestoque.txtQuantidade.Text & "', " _
        & "'" & frmestoque.txtValor.Text & "', '" & frmestoque.txtValorTotal & "', " _
        & "'" & frmestoque.txtCodigoPeca.Text & "', '" & frmestoque.txtNomePeca.Text & "', " _
        & "'" & frmestoque.txtDescricao.Text & "', '" & frmestoque.TxtObs.Text & "', " _
        & "'" & frmestoque.chkAtivo.Value & "' ) "
        '& "'" & frmestoque.chkAtivo.Value & "' ) "
        [txt-color=#ff0000]Call GravaImagemBD[/txt-color]
        .Execute
    End With
Set OP = Nothing
MsgBox "Registro gravado com sucesso!", vbInformation, "Estoque"
End Function

estou fazendo isso para gravar. está ok
A função q está em vermelho é a função q grava a imagem

Sub GravaImagemBD()
    rs.Open "Select * from Estoque", Conn, adOpenKeyset, adLockOptimistic
    Set mstream = New ADODB.Stream
    mstream.Type = adTypeBinary
    mstream.Open
    mstream.LoadFromFile caminho
[txt-color=#ff0000][txt-color=#00ff00]    rs.Fields("image").Value = mstream.Read[/txt-color][/txt-color]
    rs.Update
    rs.Close
End Sub

só q quando eu depuro dá um erro dizendo bo ou eof na linha vermelha da função. só q em uma tela q permite o usuário escolher o papel de parede funciona perfeitamente e aqui naum pq?