我这边做了两个表，用于输入数据但是显示查询值数目与目标字段的数目不同

Sub 用工作簿做数据库()
    If Application.Version = "12.0" Then
        vs = "microsoft.jet.oledb.4.0"
    Else
        vs = "Microsoft.ACE.OLEDB.12.0"
    End If
    Set conn = CreateObject("adodb.connection")
    conn.Open "provider=" & vs & ";extended properties=excel 8.0;data source=" & _
        ThisWorkbook.Path & "/数据库.xls"
    For i = 1 To 5
        If i = 1 Then
            a = "'" & Cells(i, "b") & "'"
        Else
            a = a & ",'" & Cells(i, "b") & "'"
        End If
    Next i
    conn.Execute "insert into [Sheet1$] values(" & a & ")"
    conn.Close
    Set conn = Nothing
    MsgBox "保存成功！"
End Sub