om nummere

Mit problem er at jeg skal om nummere alle min bilagsfelt når en dato er overskreden  eller glemt  og man skal skrive en gammel dato, datoer bliver sorteret automatisk men  bilags nummer bliver i  uorden så har jeg lavet den nedenstående lille pogram for at om nummere bilagsfelt men uden held, inde i access table jeg har sorteret efter dato

Private Sub OmNumBilag()
Dim dbs As Database
Dim strDBName As String
Dim rst As Recordset

strDBName = "c:\contas\contasdata.mdb"
Set dbs = OpenDatabase(strDBName)
’***************************
‘ Hvis stendet for dbOpenDynaset skriver jeg dbOpenTable så kan jeg ikke editere
’*****************************
Set rst = dbs.OpenRecordset("2003", dbOpenDynaset)

i = 0
With rst
’VB6 er ligglad med .sort = ”dato” hvis jeg skrive ”Dito” giv ikke fejl
.Sort = "Dato"
.MoveFirst
Do While Not .EOF
.Edit
i = i + 1
!bilag = i
.Update
.MoveNext
Loop
.Close
End With
dbs.Close
End Sub

på forhånd tak
Enric