散分交友

http://www.csdn.net/Expert/topic/465/465323.shtmupdate语句语法错误？！Dim cnn1 As New ADODB.Connection
Dim strSQL As String
cnn1.Open SN_stand
strSQL = "update Setup set Password='" & Text2.Text & "' where  UserName='" & UserName & "'"
cnn1.Execute (strSQL)
cnn1.Close 
请到http://www.csdn.net/Expert/topic/465/465323.shtm帖回答，给分。
谢谢！