菜鸟求教数据添加的问题

点击“添加”按钮以后
虽然可以添加记录，但是必须要关闭程序然后再打开一次才能看到新添加的记录代码如下：
Private Sub CmAdd_Click()
str1$ = "确定要添加新记录吗？"
str2$ = MsgBox(str1$, vbOKCancel, "添加新记录")
If str2$ = vbOK Then
EmNumber.SetFocus
职员档案.Recordset.AddNew
End If
End Sub注：CmAdd是“添加”按钮的名称  EmNumber是“职员编号”文本框
    “职员档案”是数据库名称   表1是表名上面的代码对吗？不对怎么改？谢谢您的指教~~~