Temat: automatyczne dodawanie sygnatur

Witam,
Mam pewien problem, nie jestem informatykiem ale chciałem zrobić taką prostą bazę majątku u mnie w straży. Korzystając z pomocy dostępnych źródeł stworzyłem bazę ale nie mogę sobie poradzić z nadawaniem indeksu. w książce był taki kod do wpisania:
Private Sub Form_AfterUpdate()
On Error GoTo errHandler
Dim rst As New ADODB.Recordset, i As Integer
rst.Open "SELECT * FROM Sygnatury", _
CurrentProject.Connection, adOpenKeyset, _
adLockOptimistic
For i = 1 To CInt(Me.Ile.Text)
rst.AddNew
rst!ID_P = Me.ID_P
rst!Sygnatura = Format(Year(Me.Data_p), "0000") & _
Format(Me.ID_P, "000")
rst!Status = 1
Next i
rst.MovePrevious
rst.Close
Me.Refresh
Exit Sub
errHandler:
MsqBox ErrDescription
End Sub
ale podczas wykonywania tego wyświetla mi błąd. Będę wdzięczny za pomoc :)