同一窗体中实现窗体标题互换

Private Sub Form_Open(Cancel As Integer)
If IsNull(Me.姓名) Then
  Me.Caption = "添加记录"
Else
  Me.Caption = "修改记录"
End If
End Sub