Private Sub Adapter_RowUpdated(ByVal sender As Object, ByVal e As _
   System.Data.OleDb.OleDbRowUpdatedEventArgs)  Handles Adapter.RowUpdated
                Dim command As OleDb.OleDbCommand = CType(sender, _
                OleDb.OleDbDataAdapter).SelectCommand
                If e.StatementType = StatementType.Insert Then
                    Dim cmdNewID As New OleDb.OleDbCommand("SELECT @@IDENTITY", _
                      command.Connection)
                    e.Row("ID") = CInt(cmdNewID.ExecuteScalar)
                    e.Row.AcceptChanges()
                End If
            End Sub