access 通过sql语句查询，无法生成自动编号，无法添加日期字段

菜鸟一枚，代码如下，请问各位大虾以下问题：

1、自动编号生成不了

2、日期无法添加到表中

3、计算两个日期之间的天数差结果不对

点击下载此附件

代码如下：

Private Sub Command16_Click()

Dim GongSiMingCheng As String
Dim ZhuCheRiQi As Date
Dim DaoQiRiQi As Date
Dim LianXiFangShi As String

Dim YongHuMing As String

YongHuMing = "13593688"

GongSiMingCheng = "测试工程程有限公司"
ZhuCheRiQi = Date
LianXiFangShi = "134159323"
LianXiRen = "陈生"
JiHuoYouXiang = "315977@qq.com"
DaoQiRiQi = #4/15/2020#
ShengYuTianShu = DateDiff("d", Format(ZhuCheRiQi, "yyyy-mm-01"), Format(DateAdd("m", -1, DaoQiRiQi), "yyyy-mm-01"))
If TableExists2(YongHuMing) = False Then
Dim SQL As String
     SQL = "CREATE TABLE " & YongHuMing & "(自动编号 long ,公司名称 text(35),注册日期 date,联系方式 string(12),联系人 string(5),激活邮箱 string(25),到期日期 date,剩余天数 Integer)"
    DoCmd.RunSQL SQL
 Else
 End If
    SQL = "insert into " & YongHuMing & "(自动编号,公司名称,注册日期,联系方式,联系人,激活邮箱,到期日期,剩余天数) values('" & AutoId & "' ,'" & GongSiMingCheng & "','" & ZhuCheRiQi & "','" & LianXiFangShi & "','" & LianXiRen & "','" & JiHuoYouXiang & "','" & DaoQiRiQi & "','" & ShengYuTianShu & "')"
   DoCmd.RunSQL SQL
End Sub

Public Function TableExists2(BiaoMing As String) As Boolean
    Dim accTbl As Object
    TableExists2 = False ' 默认值为不存在，除非表被找到。
    ' 使用CurrentDb.TableDefs集合来获取已有的表。
    ' 依次通过已有的TableDefs来获取表名。
    For Each accTbl In CurrentDb.TableDefs
          If BiaoMing = accTbl.Name Then
            TableExists2 = True ' 找到这个表
            Exit For ' 跳出循环
        End If
    Next accTbl
End Function