有关Command中的Execute方法

小弟刚刚学习VB6，想用update语句更新一下用户表的密码，代码如下：
   cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Roll\Roll.mdb"
   cnn.Open
   Set cmd.ActiveConnection = cnn
   cmd.CommandText = "update USER_DATA set PASSWORD='" + Text_NewPassword.Text + "' where USER_ID='" + username + "'"
   cmd.CommandType = adCmdText
   cmd.Execute
   cnn.Close
为什么老是提示update语句错误啊？