Hi,

When the following code is executed I get an error message:

There is no row at position.

'Add a New Record
Me.Pending01_DS1.Listing.Clear()
Me.BindingContext(Pending01_DS1, "Listing").AddNew()

' Defaults for New Listing in Table
Dim iAddCurrRow As Integer
iAddCurrRow = Me.BindingContext.Pending01_DS1, "Listing").Position
Me.Pending01_DS1.Tables("Listing").Rows(iAddCurrRow).Item("DateInsert") = Now

Where is the row I just added with AddNew command?

What do I need to do to correct this error?

Thanks
Roland