Managed to find and use the following code that works just how I wanted it to...
Private Sub Form_Current()
If Me.NewRecord Then
On Error Resume Next 'It should never occur, just to be sure...
Me.Reference_Number.DefaultValue = Nz(DMax("[Reference Number]", "tblData"), 0) + 1
End If
End Sub