Private Sub adp_RowUpdated(ByVal sender As Object, ByVal e As _
  System.Data.OleDb.OleDbRowUpdatedEventArgs) Handles adp.RowUpdated
        If e.Status = UpdateStatus.Continue AndAlso e.StatementType = _
        StatementType.Insert Then
            Dim cmd As New OleDbCommand("SELECT @@identity", _
            e.Command.Connection)
            e.Row("id") = CInt(cmd.ExecuteScalar())
        End If
    End Sub