Private Sub Form_Current()
If Me.NewRecord Then
Me.Form.Caption = "Your Form Name - New Record (" & Me.RecordsetClone.RecordCount & " existing records)"
Else
Me.Form.Caption = "Your Form Name - Record " & [CurrentRecord] & " of " & Me.RecordsetClone.RecordCount
End If
End Sub