Access中VB的问题，求！！！

Private Sub 添加职员_Click()
On Error GoTo Err_添加职员_Click
Dim STemo As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
stemp = "Select * From 员工资料"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockBatchOptimistic
If Me![职员ID] <> "" And Me![部门ID] <> "" And Me![姓名] <> "" And Me![身份证ID] <> "" Then

rs.AddNew

rs("职员ID") = Me![职员ID]
rs("部门ID") = Me![部门ID]
rs("姓名") = Me![姓名]
rs("性别") = Me![性别]
rs("籍贯") = Me![籍贯]
rs("年龄") = Me![年龄]
rs("民族") = Me![民族]
rs("身份证ID") = Me![身份证ID]
rs("家庭地址") = Me![家庭地址]
rs("家庭电话") = Me![家庭电话]
rs("手机号码") = Me![手机号码]
rs("电子邮箱") = Me![电子邮箱]
rs("备注") = Me![备注]

access 中vb调试的问题 在vb中编辑ACCESS的问题! VB中插入ACCESS数据库的问题 求VB+ACCESS的高手问题 VB+ACCESS的问题 在VB中如何求ACCESS一个字段的和 vb+access 数据库中datagrid的绑定问题 VB和ACCESS的初级问题....急求.... VB调用access的问题 vb连接access的问题