Posting An Image To SQL Server 2005

Hello Everyone I am trying to write image files to sql server using the following code. I have recieved the following error message

Failed to convert parameter value from a String to a Byte[].  Please help.  I am sure it is a problem gathering the iostream.  I am not very familiar.  Any help is gretaly appreciated.

Thanks in advance

Here is the code:

'Dim User As MembershipUser = Membership.GetUser(CreateUserWizard1.UserName)

'Dim t As TextBox = DirectCast(FormView1.FindControl("aspnet_UserID"), TextBox)Dim objConn As SqlConnection

Dim objCom As SqlCommand

If Me.FileUpload1.HasFile Then

Dim fileExtension As String

Dim fileOK As Boolean = False

fileExtension = System.IO.Path. _

GetExtension(FileUpload1.FileName).ToLower()Dim allowedExtensions As String() = _

{".jpg", ".jpeg", ".png", ".gif", ".mwv"}For i As Integer = 0 To allowedExtensions.Length - 1

If fileExtension = allowedExtensions(i) Then

fileOK = True

End If

Next

'TryDim imagestream As System.IO.Stream = FileUpload1.FileContent

Dim data() As ByteReDim data(imagestream.Length - 1)

imagestream.Read(data, 0, imagestream.Length)

imagestream.Close()objConn = New SqlConnection(strNewConnection)

objCom = New SqlCommand("insert into ProfileImagesAndDocs(aspnet_userid,img_name,img_data,img_contenttype)values(@aspnet_userid,@imagename,@Picture,@CategoryName)", objConn)

'---------------------------------------------

'this is the aspnet_useridDim useridparameter As SqlParameter = New SqlParameter("@aspnet_userid", SqlDbType.VarChar)useridparameter.Value = Me.aspnet_userid.Text

objCom.Parameters.Add(useridparameter)

'---------------------------------------------

'This is the image name Dim imagenameparameter As SqlParameter = New SqlParameter("@imagename", SqlDbType.VarChar)imagenameparameter.Value = Me.FileUpload1.FileName

objCom.Parameters.Add(imagenameparameter)

'----------------------------------------------

'this is the picture dataDim pictureParameter As SqlParameter = New SqlParameter("@Picture", SqlDbType.Image)

pictureParameter.Value = data

objCom.Parameters.Add(pictureParameter)

'----------------------------------------------

'this is the profile area or category i.e. video introDim categorynameParameter As SqlParameter = New SqlParameter("@CategoryName", SqlDbType.VarChar)

pictureParameter.Value = "IntroVideo"

objCom.Parameters.Add(categorynameParameter)

 

objConn.Open()

objCom.ExecuteNonQuery()

objConn.Close()

'bookmark

Label1.Text = "File uploaded!"

'Catch ex As Exception

Label1.Text = "File could not be uploaded."

End If