Display and save image file to SQL Server simultaneously

Hi....I need help for my little problem here. I'm using Visual Basic 2005 and SQL Server 2000. I want to save an image file to the database.
There is this button called btnImage that I use to display the image. When I click this button, an OpenFileDialog will be shown to select a file. Then the image will be displayed on the button as its BackgroundImage. And then I call a procedure named SaveImageToSQL to save the image file. But everytime I call it, I always receive this error message: "The file [FileDirPath] is being opened by another process........" or something like that. I guess this happens because the file is being loaded to the btnImage.
Can anyone suggest what I should do here? I want to save the image to database and also preview it on the image. I tried using the PictureBox instead, but it always ends up to the same problem.

Here's what my code looks like:

Imports System.IO

Private Sub btnImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImage.Click
        OpenFileDialog1.ShowDialog()
        If OpenFileDialog1.FileName <> "" Then
            Try
                btnImage.BackgroundImage = Image.FromFile(OpenFileDialog1.FileName)
                btnImage.Tag = OpenFileDialog1.FileName
                PhotoAttached = True
            Catch ex As Exception
                lblState.Text = ex.Message
                lblState.ForeColor = Color.Red
            End Try
        End If
    End Sub

Private Function SaveImageToSQL(ByVal FilePath As String, ByVal SaveMode As Integer) As Boolean
        Dim fs As FileStream = New FileStream(FilePath, FileMode.Open)
        Dim img As Byte() = New Byte(fs.Length) {}
        Dim pic As SqlParameter = New SqlParameter("@pic", SqlDbType.Image)

        fs.Read(img, 0, fs.Length)
        fs.Close()

        If SaveMode = 1 Then              'Update Photo
            strCommand = "UPDATE Photo SET Photo=@pic WHERE Username='" & txtUsername.Text & "'"
        Else                                          'New Photo
            strCommand = "INSERT INTO Photo(Username,Photo) VALUES('" & txtUsername.Text & "',@pic)"
        End If

        Try
            pic.Value = img
            objCommand = New SqlCommand(strCommand, objConn)
            objCommand.Parameters.Add(pic)
            objCommand.ExecuteNonQuery()
        Catch ex As Exception
            lblState.Text = ex.Message
            lblState.ForeColor = Color.Red
        End Try

    End Function

Any suggestion will be a great help to me. Thanx in advance.