de = vbKeyReturn Then DTP1.SetFocus
    End Sub
    Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
      If Index < 4 And KeyCode = vbKeyReturn Then Text1(Index + 1).SetFocus
      If Index = 4 And KeyCode = vbKeyReturn Then CmdSave.SetFocus
    End Sub
    Private Sub DTP1_KeyDown(KeyCode As Integer, Shift As Integer)
      If KeyCode = vbKeyReturn Then Text1(4).SetFocus
    End Sub
    Private Sub CmdSave_Click()
      rs1.Open "select * from 离职信息表", Cnn, adOpenKeyset, adLockOptimistic
      rs1.AddNew
      rs1.Fields("工号") = DataCombo1.Text
      For i = 1 To 3
          rs1.Fields(i) = Text1(i).Text
      Next i
      rs1.Fields("是否离职") = "离职"
      rs1.Fields("离职日期") = DTP1.Value
      rs1.Fields("备注") = Text1(4).Text
      rs1.Update
      rs2.