用EXCEL VBA 创建一个ACCESS表，用如下SQL语句，错在哪里，求高手指正

风朱中斌的

Dim mydata As String, mysql As String
  
    mydata = ThisWorkbook.Path & "\日记账\dat" _
        & Format(Date, "yyyymm") & ".mdb"
    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.FileExists(mydata) = False Then
        MsgBox "还没有日记账数据库！系统将自动创建日记账数据库！", _
            vbInformation, "注意"
        Set myaccess = CreateObject("Access.Application")
        myaccess.NewCurrentDatabase mydata
        mysqlmx = "create table 清单(" _
                 & " 日期 date ,凭证编号 int,摘要 text(100)," _
                 & " 总账科目 text(100),明细科目 text(100)," _
                 & " 科目编码 text(10)," _
                 & " 借方金额 currency,贷方金额 currency," _
                 & " 附单据 int,现金流量分类编码 text(4))," _
                 & " 二级明细 text(100),数量 sin,)"
         myaccess.DoCmd.RunSQL mysqlmx
        myaccess.CloseCurrentDatabase
        Set myaccess = Nothing
    End If

风朱中斌的

应是错在  & " 二级明细 text(100),数量 sin,)"
义句，该怎修正？
急！！！！！！！！！！！！！！