Trouble in Inserting data into access database

Hi

I am trying to insert some data into access database and couldn't find out what the error was !!!
The value is not inserted into database .It worked fine till yesterday and dont know why is it failing now?
Can someone please suggest me what's the problem ???

the code is

***************************************************
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Dim myconnection As System.Data.OleDb.OleDbConnection
Dim mycommand As System.Data.OleDb.OleDbCommand

Dim strconnect As String = " PROVIDER = Microsoft.Jet.OLEDB.4.0 ;DATA SOURCE = " & _
Server.MapPath("decisiontree2000.mdb") & ";"
myconnection = New System.Data.OleDb.OleDbConnection(strconnect)
myconnection.open()
Dim strSQL As String

strSQL = "INSERT INTO CustomerDetails1(UserName) VALUES('" & TextBox1.Text & ")"
mycommand = New System.Data.OleDb.OleDbCommand(strSQL, myconnection)
mycommand.ExecuteNonQuery()

myconnection.Close()

End Sub
************************************************

I figured it oout


It was a synatx error in SQL .