请教个问题,VBA问题

这个程序运行不起啊,高手帮我改下啊
Option Compare Database
Option Explicit
Private Sub cmdadd_click()
On Error GoTo err_cmdadd_click

Dim rs As New adodb.Recordset
Dim str As String
Dim day As Date
Dim sn As Integer

If IsNull(Me.UserName) Then
MsgBox ("请输入姓名!")
If IsNull(Me.Gender) Then
MsgBox ("请选择性别!")
If IsNull(Me.Birthday) Then
MsgBox ("请输入生日!")
If IsNull(Me.Departmentname) Then
MsgBox ("请选择部门!")
If IsNull(Me.job) Then
MsgBox ("请选择职位!")
If IsNull(Me.jkzk) Then
MsgBox ("请选择健康状况!")
If IsNull(Me.Edu_level) Then
MsgBox ("请选择教育程度!")
Else

day = Me.Birthday
str = "select * from 员工个人信息"
Set rs = getrs(str)
With rs
.AddNew '添加记录
!员工编号 = Trim(Me.ID)
!员工密码 = Trim(Me.pasword)
!员工姓名 = Trim(Me.UserName)
!出生日期 = day
!部门

vba 问题 VBA问题，VBA高手请进！ 关于excel的VBA的一点小小的问题请教! VBA小问题 excel VBA小问题 关于vba 的问题 VBA模拟器问题 VBA中的一个问题 关于VBA的问题 VBA网络联机问题