Visual Basic - ayuda con un data

hola a todos en este foro quisiera que me ayudaran con una data

mi problema es que yo tengo una base de datos donde hay un registro automatico es decir auto numerico que lo estoy utilizando como el autocontrol para una facturas o contratos mi detalle es que al dar click en un registro nuevo lo que deseo es que

en la primer caja de texto que tengo me aparesca el numero siguiente de los contratos que tengo

el codigo que estoy utilizando es el siguente

Private Sub CmdAgregar_Click()
txtNombre = " "
Data1.Recordset.MoveLast
Data1.Refresh
Data1.Recordset.AddNew
txtnombre.SetFocus
End Sub

como le pongo para que mi primer caja de texto aparesca el numero siguiente de registro

ayudenme porfas...

Ah sí, ¿y tú quién eres para decir eso?

Pues sí, ¿y tú quién eres para meterte dondo no te llaman?

Si tienes una solución mejor, se la pones.