[vb.net] อัพโหลดไฟล์ภาพ แล้วมันขึ้น error อย่างนี้แก้ยังไงหรอครับ มือใหม่ครับ

Private Sub uploadClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fUpload.Click
        Dim imbByte(fUpload.PostedFile.InputStream.Length) As Byte
        fUpload.PostedFile.InputStream.Read(imbByte, 0, imbByte.Length)

        fUpload.PostedFile.InputStream.Read(imbByte, 0, imbByte.Length)
        '*** MimeType ***'
        Dim ExtType As String = System.IO.Path.GetExtension(fUpload.PostedFile.FileName).ToLower()
        Dim strMIME As String = Nothing
        Select Case ExtType
            Case ".gif"
                strMIME = "image/gif"
            Case ".jpg", ".jpeg", ".jpe"
                strMIME = "image/jpeg"
            Case ".png"
                strMIME = "image/png"
            Case Else
                Me.lblStatus.Text = "Invalid file type."
                Exit Sub
        End Select

        '*** Insert to Database ***'
        Dim objConn As New SqlConnection
        Dim strConnString, strSQL As String

   strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"



        strSQL = "INSERT INTO files (Name,FilesName,FilesType) " & _
        " VALUES " & _
        " (@sName,@sFilesName,@sFilesType)"
        objConn.ConnectionString = strConnString
        objConn.Open()

        Dim objCmd As New SqlCommand(strSQL, objConn)
        objCmd.Parameters.Add("@sName", SqlDbType.VarChar).Value = Me.txtName.Text
        objCmd.Parameters.Add("@sFilesName", SqlDbType.Binary).Value = imbByte
        objCmd.Parameters.Add("@sFilesType", SqlDbType.VarChar).Value = strMIME
        objCmd.ExecuteNonQuery()

        objConn.Close()
        objConn = Nothing
    End Sub