オートナンバーを５桁表示にしたいんですが、１桁にしかなりません。
どこをいじれば良いでしょうか？


If blnIncrement And intEditMode = 2 Then '顧客オートナンバー開始
strSQL = "select max(code) from customers"
Set rsTemp = cn.Execute(strSQL)
If Not rsTemp.EOF Then
strNewCode = rsTemp.Fields(0).Value & ""
If strNewCode = "" Then
strNewCode = "00001"
ElseIf IsNumeric(strNewCode) Then
strNewCode = CLng(strNewCode) + 1
Else '文字列の場合は右端のｷｬﾗｸﾀをｲﾝｸﾘﾒﾝﾄさせる
strNewCode = Mid(strNewCode, 1, Len(strNewCode) - 1) & _
Chr(Asc(Right(strNewCode, 1)) + 1)
End If
End If
End If