VB中3021的错误提示

Question

Private Sub DataGrid1_DblClick()
  blnAddGCQJ = False           '标记为修改状态
  Load main_kqgl_gcqj_addmodify        '加载修改员工公出/请假窗体
  main_kqgl_gcqj_addmodify.Show         '显示修改员工公出/请假窗体
  With main_kqgl_gcqj_addmodify
    .Caption = "修改公出/请假信息"         '设置该窗体的标题栏
***********.DTPStartDate = Left(Adodc1.Recordset.Fields("开始时间"), 10)  '给开始日期赋值
    .MaskEdBoxTime1 = Right(Adodc1.Recordset.Fields("开始时间"), 5)  '给开始时间赋值
    .DTPEndDate = Left(Adodc1.Recordset.Fields("结束时间"), 10)  '给结束日期赋值
    .MaskEdBoxTime2 = Right(Adodc1.Recordset.Fields("结束时间"), 5) '给结束时间赋值
    .cboStyle = Adodc1.Recordset.Fields("假别")      '给假别赋值
    .txtCause = Adodc1.Recordset.Fields("原因")      '给原因赋值
  End With
End Sub
※号出提示错误
         实时错误‘3021’
         EOF或BOF中有一个是“真”，或者当前记录已删除，所需的操作要求一个当前的记录

Answer 1

在取记录时，加上一个判断EOF和BOF