Server Error In Application. Problem When User Name Has An Apostrophe In Name.

This is my code and all works great except when there is an apostriphe in the logon name. 

Example:  MRPJUser ( works greate )

Example: MRPJ'User (I get the server error at the bottom) 

Is there an Imports statement that would fix this, or where is my code failing, and what do I need to do to fix it?
 
 
<Code>
Imports System.Web.Security


Imports System.Security.Principal

Imports System.Threading

' Imports System.Net.Dns

Public Class LogIn

Inherits System.Web.UI.Page

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim hostName As String = Request.ServerVariables("REMOTE_HOST")

txtIPAddress.Text = hostName

Session("ComputerIP") = txtIPAddress.Text

txtUserName.Text = HttpContext.Current.User.Identity.Name()

Session("UserName") = Trim(txtUserName.Text)

TextBox1.Text = Trim(Session("UserName"))

LoadPage()

End Sub

</Code>
 
 
 
Server Error in '/ITWorkOrder' Application.



Line 1: Incorrect syntax near 'Test'. Unclosed quotation mark before the character string ' '.

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.


Exception Details:
System.Data.SqlClient.SqlException: Line 1: Incorrect syntax near 'Test'. Unclosed quotation mark before the character string ' '.


Source Error:








An unhandled exception was generated during the execution of the current web request. Information regarding the origin and location of the exception can be identified using the exception stack trace below.




Stack Trace:







 
[SqlException: Line 1: Incorrect syntax near 'Test'.
Unclosed quotation mark before the character string ' '.]

   System.Data.SqlClient.SqlCommand.ExecuteReader(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream) +742

   System.Data.SqlClient.SqlCommand.ExecuteReader() +42

   ITWorkOrder.LogIn.LoadPage() in C:InetpubwwwrootITWorkOrderLogIn.aspx.vb:163

   ITWorkOrder.LogIn.Page_Load(Object sender, EventArgs e) in C:InetpubwwwrootITWorkOrderLogIn.aspx.vb:156

   System.Web.UI.Control.OnLoad(EventArgs e) +67

   System.Web.UI.Control.LoadRecursive() +35

   System.Web.UI.Page.ProcessRequestMain() +750