如何插入？做事物判断？

Question

Dim AccessCon As ADODB.Connection
    Dim SqlCom As ADODB.Command
    Dim VarPar As ADODB.Parameter
    Dim DataRst As ADODB.Recordset
    Set AccessCon = New ADODB.Connection
    Set SqlCom = New ADODB.Command
    Set DataRst = New ADODB.Recordset
    Dim Path As String
    Path = App.Path + "\Ast2100.MDB"
    AccessCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path & ";Persist Security Info=False"
    SqlCom.CommandType = adCmdText
    AccessCon.Open
    AccessCon.BeginTrans
    SqlCom.CommandText = "insert into ASTData(EnrollID,EnrollData) values (1,'hello')"
    SqlCom.Execute//////////怎么出错阿。
    AccessCon.CommitTrans
    AccessCon.Close

Answer 1

出什么错啊，是不是有数据约束，比如EnrollID是自动递增的、还有一些字段要求非空等等。

Answer 2

不是EnrollID不是递增的，递增的还有个ID,以为数据库会制动加1，说一没写。。Access数据库