帮忙看看这段语句哪里出错了？

Question

是用ADO把Excel导入追加到Access的代码，连接之前的语句就省略不写了，下面是连接之后的xlsrs.Open "select * from [Sheet1$]", xlsconn, 3, 1Dim i As Integer
Dim a_name As String
Dim a_point As String
Dim a_day As Stringi = 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 sqli = i + 1
xlsrs.MoveNext
Loop运行后错误提示是：至少有一个参数没有被指定值

Answer 1

everyday里有几个列？
几个是不允许空的？

Answer 2

字段类型是文本型的，赋值要加上''号....
Values('" & a_name & "',...... 

Answer 3

谢谢这位大哥！现在错误提示变成：对象打开时，不允许操作错误指向这句
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\mydb.mdb;" & "Persist Security Info=False"

Answer 4

现在好了，我刚才是把
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\mydb.mdb;" & "Persist Security Info=False"这句放在　Dim sql As String 　这句的前面，然后出现那样的提示然后我把那连接语句放到所有代码的最前面，就不会出现错误了，奇怪