rs("考勤日期") = DTPicker1.Value
            rs("出勤天数") = Text5.Text
            rs("假期加班") = Text6.Text
            rs("其他加班") = Text7.Text
            rs("出差天数") = Text8.Text
            rs("旷工天数") = Text9.Text
            rs("迟到次数") = Text10.Text
            rs("早退次数") = Text11.Text
            rs("备注") = Text12.Text
            rs("部门名称") = Combo1.Text
            rs.Update
            MsgBox "数据添加成功", 64, "信息提示"
            Adodc1.CommandType = adCmdText
            Adodc1.RecordSource = "select * from 员工考勤信息表"
            Adodc1.Refresh
            Text1.Text = ""
            Text2.Text = ""
            Text3.Text = ""
            DTPicker1.Value = Now
            Text5.Text = ""
            Text6.Text = ""
            Text7.Text = ""
            Text8.Text = ""
            Text9.Text = ""
            Text10.Text = ""
            Text11.Text = ""
            Text12.Text = ""
            Combo1.Text = ""
        Else
            MsgBox "该员工考勤信息已经存在了", 16, "警告"
        End If
    End If
End Sub
Private Sub DataGrid1_Click()
    If Adodc1.Recordset.RecordCount <= 0 Then
        MsgBox "当前表是空表", 16, "信息提示"
    Else
        Text1.Text = Adodc1.Recordset.Fields(0)
        Text2.Text = Adodc1.Recordset.Fields(1)
        Text3.Text = Adodc1.Recordset.Fields(2)
        DTPicker1.Value = Adodc1.Recordset.Fields(3)
        Text5.Text = Adodc1.Recordset.Fields(5)
        Text6.Text = Adodc1.Recordset.Fields(6) VB+access员工信息管理系统设计与实现(16):http://www.youerw.com/jisuanji/lunwen_1399.html