没有两个用户同时使用，是不是这段代码出现问题了，帮忙看看

Dim ctl As Control
    Set ctl = Me.wares
    If MsgBox("您是否要添加货物品名:" & NewData, vbQuestion + vbOKCancel + vbDefaultButton1, "添加货物品名") = vbOK Then
        Response = acDataErrAdded
        Dim rst As New ADODB.Recordset
        rst.Open "tblwares", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        rst.AddNew
        rst!wares = NewData
        rst.Update
        Me.wares.RowSource = "select wares from tblwares"
    Else
        Response = acDataErrContinue
        ctl.Undo
    End If