[求助]为何增加记录按钮无效

lupo

附件中的work窗体中的“增加记录”使用如下代码，但按下去后没有向名为work的表中添加记录，请哪位老大看看这是为何。

Private Sub cmdadd_Click()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "work", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rs.AddNew
    rs("工号") = Me.工号
    rs("出车日期") = Me.出车日期
    rs("车号") = Me.车号
    rs("行驶里程") = Me.行驶里程
    rs("出动车次") = Me.出动车次
    rs("载客人次") = Me.载客人次
    rs("费用") = Me.费用
    rs("服务对象") = Me.服务对象
    rs("服务项目") = Me.服务项目
    rs.Update
    rs.Close
    Call cmdclear_Click
    Me.工号.SetFocus
    Me.出车日期 = Format(Now(), "yyyy-m-d")
End Sub

[此贴子已经被作者于2006-8-6 8:16:37编辑过]