Please help me for a simple count

[Najath]

how can i add a count like this
eg:- there is a five digit no in the table field ,
when form loads the five digit no has to add(+) a nother one then 00001+1=00002

eg Code:-

strlastno = rstserial.Fields("LastNo")
strlastno = Val(strlastno) + Val(1)

from this statement it has to done upto 00009 then after this cant be done


after that five digit number come to 00009 then
it will be generate a error dulicating the database

how can i do this count

pleace help me

[khalik]

if u r generating max key.. and if ur app is single user app then follow this

Dim st As String
Dim i As Integer
st = "00001"
i = Val(st) + 1
st = String(5 - Len(CStr(i)), "0") & 1
MsgBox st

but prefer doing with database