Private Sub Form_Current()
On Error Resume Next
Dim Kat As Integer
Dim Rs As Recordset
Set Rs = Me.RecordsetClone
Rs.MoveLast
Me.Kat = Rs!Kat
End Sub