Hacer un consecutivo pero con el prefijo ORD

Hola!!!

Tengo un formulario en Access, pero requiero hacer un consecutivo con el prefijo ORD0001... ORD0002, la idea es que al darle en el botón de Nuevo registro me de el consecutivo en automático...

tengo el siguiente código, pero no me funciona

Private Sub Form_Current()

If Me.NewRecord Then Me.[No_Ticket].DefaultValue = Nz(DMax("No_Ticket", "General"), 0) + 1

End If End Sub

Sin embargo no lo hace y al cerrar el archivo y al volver a iniciar , vuelve a empezar con 1.

Probé éste código pero solo en todo agrega el valor ORD0001 y marca error en el Refresh.

Private Sub Nuevo_Reg_Click()

On Error GoTo error

Dim nRegistros As Integer

DoCmd.GoToRecord , , acNewRec 'nRegistros = DCount("[No_Ticket]", "General", "[No_Ticket]<>''")

Me.No_Ticket = "ORD" & Format(nRegistros + 1, "00000")

Refresh

Exit Sub

error: 'Me.No_Ticket = "ORD00001"

Refresh

End Sub

Agradezco su ayuda