生成表VBA错误

生成表出现错误，提示CREATE TABLE 语句语法错误，请大神帮忙修改！

Private Sub Cmd1_Click()
    DoCmd.SetWarnings False
    Dim str1 As String
    Dim sqltxt As String
    sqltxt = "create table 预算分配表（类型 text,合同号 text,"
    Y = DateAdd("m", 1, Date)
    For X = 1 To 11
        sqltxt = sqltxt & Year(Y) & "年" & Month(Y) & "月" & " double,"
        Y = DateAdd("m", X + 1, Date)
    Next X
    sqltxt = sqltxt & Year(Y) & "年" & Month(Y) & "月" & " double)"
    If tblA("预算分配表") Then
        DoCmd.RunSQL ("drop table 预算分配表")
    End If
    
    MsgBox sqltxt
    DoCmd.RunSQL (sqltxt)
    
    DoCmd.SetWarnings True
End Sub