VB 查询语句出错

VB code:
'sqlstr = "INSERT INTO useinfo " & "(usename ,password)" & " values (' " & usename & " ' " & ",'" & password & "');"

代码如上
我用的是ADO连接ACCESS数据库.
在调试时  提示INSERT INTO 语句语法错误
请大家帮我更改下,我不知道那里出错了,郁闷

---

sqlstr = "INSERT INTO useinfo (usename ,password) values ('" & usename & "', '" & password & "')"

---

sqlstr = "INSERT INTO useinfo " & "(usename ,password)" & " values (' " & usename & " ' " & ",'" & password & "');"

没有必要

---

password是jet引擎的关键字，最好不要用于字段名称，如果用了，SQL语句中用[]号括起来
还有一个完整的字符串不要用&串接，只有遇到变量时，才要用&串接
SQL code:

sqlstr = "INSERT INTO useinfo (usename ,[password]) values ('" & usename & "','"& password & "');"

---

sqlstr = "INSERT INTO useinfo " & "(usename ,password)" & "