要在表单中递增日期字段，并且不丢失字段的焦点，可以使用以下代码示例：

首先，创建一个文本框控件来显示日期字段，并将键盘按下事件与该文本框关联。

Private Sub txtDate_KeyDown(KeyCode As Integer, Shift As Integer)
    ' 按下键事件处理程序
    If KeyCode = vbKeyUp Then
        ' 按上箭头键
        txtDate.Text = DateAdd("d", 1, txtDate.Text)
    ElseIf KeyCode = vbKeyDown Then
        ' 按下箭头键
        txtDate.Text = DateAdd("d", -1, txtDate.Text)
    End If
End Sub

然后，在表单加载事件中将文本框的Tab键顺序设置为0，以确保焦点在文本框上。

Private Sub Form_Load()
    ' 表单加载事件处理程序
    txtDate.TabIndex = 0
End Sub

使用这个代码示例，当你在文本框中按下上箭头键（vbKeyUp）时，日期字段会递增1天；当你按下下箭头键（vbKeyDown）时，日期字段会递减1天。同时，文本框保持焦点，方便连续操作。