You don't have .update in the end, after the add new
With rsNewData
.AddNew
![Comparison] = "User"
![ReturnVal] = strResponse
![Description] = "No"
.Update
.AddNew
![Comparison] = "PermPath"
.update
End With

Signature
\\// Live Long and Prosper \\//
> I have the following code...the first record is added in the table but not
> the second..
[quoted text clipped - 10 lines]
> End With
> Thanks