Adodc1.Recordset.Delete

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB\wat.mdb;Persist Security Info=False"
rs.Open "select * from punni", cn, adOpenStatic, adLockOptimistic
If rs.RecordCount <> 0 Then
rs.MoveFirst
For i = 1 To rs.RecordCount
    rs!n = i
    rs.Update
    rs.MoveNext
Next i
End If
rs.Close
cn.Close