vb 数据库小问题

Question

dim conn as New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\数据库.mdb;Persist Security Info=False"            
dim rs_user as  New ADODB.Recordset
Dim sql As StringDim user_name As String
Dim user_pwd As String
Dim user_pwd2 As String'输入部分
Do
    user_name = InputBox("请输入用户名")
Loop While Trim(user_name) = ""
Do
    user_pwd = InputBox("请输入用户密码")
    user_pwd2 = InputBox("请你再次输入密码")
Loop While (Trim(user_name) = "" Or user_pwd <> user_pwd2)
'操作部分
sql = "insert into userID (用户名,密码) values (user_name,user_pwd)"
conn.Execute sql
'当执行到最好两行的时候就提示“至少一个参数没有被指定值”
'这个到底是怎么回事？
'当我把sql = "insert into userID (用户名,密码) values (user_name,user_pwd)"改为sql = "insert into userID (用户名,密码) values ('小华','qqq')" 的时候就可以正常运行。

Answer 1

sql = "insert into userID (用户名,密码) values ('" & user_name & "','" & user_pwd  & "')"

Answer 2

sql=" insert into 表名(字符型字段,数值型字段) values('"& 字符型变量 &"',"& 数值型变量 &")"

Answer 3

sql=" insert into 表名(字符型字段,数值型字段) values('"& 字符型变量 &"',"& 数值型变量 &")"

Answer 4

user_name,user_pwd  要加引号