Visual Basic - AYUDA PORFA ;o)

NESESITO HACER UN PROCESO KE AL DAR KLIK EN EL BOTON NUEVO DE UN TOOLBAR EN LA CASILLA DE "ID" APAREZCA EL NUMERO CORRELATIVO AL ANTERIOR... ALGUIEN TIENE IDEA COMO? GRACIAS.

Data1.recordset.movelast
Var = Val(Text_Codigo.text)
Data1.recordset.addnew
Text_codigo.text = ""
Var = Var +1
Text_codigo.text = Str(Var)
Text_Nombre.setfocus