帮忙看看这段语句哪里出错了？解决思路

帮忙看看这段语句哪里出错了？
是用ADO把Excel导入追加到Access的代码，连接之前的语句就省略不写了，下面是连接之后的

xlsrs.Open "select * from [Sheet1$]", xlsconn, 3, 1

Dim i As Integer
Dim a_name As String
Dim a_point As String
Dim a_day As String

i = 1
Do While Not xlsrs.EOF
a_name = xlsrs("名字")
a_point = xlsrs("点数")
a_day = xlsrs("日子")
   
Dim sql As String
sql = "insert into everyday(名字,点数,日子) Values(" & a_name & "," & a_point & "," & a_day & ")"
conn.Execute sql

i = i + 1
xlsrs.MoveNext
Loop



运行后错误提示是：至少有一个参数没有被指定值

[解决办法]
字段类型是文本型的，赋值要加上''号....
Values('" & a_name & "',......